Smtp Connect Probleme

[Ati]

Hallo zusammen,

leider muß ich dieses Thema nochmal aufwühlen. Heute konnte ich mich mal an diesem Problem zu schaffen machen. Ich habe jetzt folgendes versucht/gemacht. Wenn der Speichern-Button gedrückt wird, wird folgender Code ausgeführt:

Delphi-Quellcode:

procedure TForm1.btnspeichernClick(Sender: TObject);
var status:Boolean;
begin
status:= smtp.Connected;
if ord(status)=0 then begin
smtp.Connect;
delay(2000);
eingabe;
end
else
eingabe;
end;

"eingabe" ist hierbei der Code welcher vorher verwendet wurde (dank Sharky):

Delphi-Quellcode:

Procedure Tform1.eingabe;
begin
  if (CheckInput) then
   begin
     dssave;
   end
   else
   begin
     ShowMessage('Bitte Eingabe überprüfen');
     exit;
   end;
end;

Wenn ich nun zu Testzwecken die Connection kappe und dann Daten eingebe wird alles so ausgeführt wie ich es mir Vorstelle.... mit einem kleinen Schönheitsfehler. Es erscheint die Melung "Bitte Eingabe überprüfen" und das obwohl alles stimmt und auch gespeichert wird
Weiß jemand Rat??

Danke Ati