Exception Handhabung

[jmit]

Hallo,

ich habe folgendes Problem:

Die Eingabe einer Edit-Komponente übergebe ich einer Variablen vom Typ Double.
Wenn bei der Ausführung des Programmes das Eingabefeld keinen Wert enthält, dann bekomme ich ein EConvertError.
Diese habe ich versucht abzufangen. Leider komme ich nach der Exception nicht mehr in das Eingabefeld. Das Programm läuft weiter.

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  koerpergroesse, gewicht, bdi : Double;
begin
  try
  koerpergroesse := StrToFloat(Edit1.Text);
  except
    on EConvertError do
        begin
          ShowMessage('Es wurde kein Wert eingegeben.');
          Edit1.Focused;
        end;
    end;
...

Nach Ausgabe der ShowMessage möchte ich wieder zum Eingabefeld kommen, damit ein korrekter Wert eingegeben werden kann.
Kann mir da jemand weiterhelfen.
Vielen Dank schon einmal.

Gruß Jörg