[BBBCat]

Всё правильно про проверку, но Facepalm, видимо по неопытности, предложил немного неправильное направление, проще надо:

Код:

procedure TButton1Click(Sender: TObject);
var
  X: Extended;
begin
  X := StrToFloat(Edit1.Text);
  if X < 0 then
    Label1.Caption := 'Число меньше нуля'
  else if X > 0 then
    Label1.Caption := 'Число больше нуля'
  else
    Label1.Caption := 'Число равно нулю';
end;