[Guzerus]

По поводу теста.
Вот ссылка на справочник по Дельфи (один из многих), в Главе 15 как раз описывается создание теста.
Вопрос от меня.

Код:

function TForm1.CheckEdit2 : Boolean;
begin
  Result := False;
  if (Edit2.Text='0') or (Edit2.Text='')
    then ShowMessage ('Операция недопустима!')
    else Result := True;
end;

procedure TForm1.Button1Click(Sender : TObject);
begin
  if CheckEdit2 Then
............

При вызове функции мы вызываем её Result. Но в выше следующем коде Resula'а два. True и False. Получается if CheckEdit2 Then эквивалентно
if <Result_функции_CheckEdit2> Then.
Вопрос:
If Result... что? Не указывается, true или false. Получается, по умолчанию программа проверяет на true?