Ja, richtig. Man könnte es auch so machen:
Delphi-Quellcode:
procedure Tmain.cmdBerechnenClick(Sender: TObject);
var
F, A: Real;
begin
if TryStrToFloat(txtF.Text, F) and TryStrToFloat(txtA.Text, A) then
begin
//Weiterrechnen
p := F/A;
txtp.Text := FloatToStr(p);
end
else
txtp.text := 'Falsche Werte'
end;
//Edit: Und denk dran A auf <> 0 zu überprüfen sonst gibt es evtl. ne nette Division durch null
