is not a valid floating point value - okreslenie poprawnego warunku

Pisze prosty kalkulator i chcę stworzyć komunikat, który pokazywał by użytkownikowi, że nacisnął klawisz działania przed wprowadzeniem liczby. Bez takiego zabezpieczenia w programie pojawia się błąd. Oto błąd, który się wyświetla kiedy wykorzystuję moją formułę i początkowo naciskam klawisz działania.
is not a valid floating point valve
Oto kod

procedure TForm1.Button12Click(Sender: TObject);
begin
if edit1.text<>' ' then
begin
a:=StrToFloat(edit1.text);
b:=2;
edit1.Text:=' '
end
else ShowMessage('kiszka');
end;

Poczytaj o Val.

... oraz o

TryStrToFloat