Programm pausieren aber dennoch ansprechbar lassen

[cRayZo]

okay also läuft, ist ja auch eigentlich kein Problem, aber nochmal eine Grundsätzliche Frage, hier am beispiel des Timers.

Ich habe verscuht mit try except einen Fehler abzufangen, aber das klappt nicht.
Der Fehler kann in der zweiten Zeile eigentlich gar nciht auftreten, weil die nur abläuft, wenn die erste ohne Fehler ist:

Delphi-Quellcode:

procedure TEinstellungen.Button1Click(Sender: TObject);
var
testi:real;
blubb:integer;
begin
blubb:=0;
        try testi:=strtofloat(Edit1.Text);
        except
                begin showmessage('der Wert muss eine Zahl sein!'#13'z.B. "13" oder "12,34"'); blubb:=1
                end
        end;

if blubb=0
then
        begin showmessage('erfolgreich'); Test.Timer1.Interval:=round(testi*60000); Einstellungen.Visible:=False;
        end;
end;

woran liegt das?