Textfeld auf Zahl prüfen

[AblukaAlarm]

Delphi-Quellcode:

procedure TForm1MSP.Edit1MasseChange(Sender: TObject);
Var zahl:Extended;
 
begin
    if not TryStrToFloat(Edit1Masse.text,zahl)
       then showmessage('FEHLER');
 end;

 begin
    if RadioButtonFlussdichte.Checked = true then
     Label7.Caption := Edit1Spannung.Text
  else Label5.Caption := Edit1Flussdichte.Text;
  end;

In diesem Zustand bleibt er bei RadioButtenFlussdichte.Checked hängen