Indy 10 SMTP-Verbindung protokollieren mit "SMTP1.OnStatus": wie geht das?

[juergen]

Hallo zusammen,

ich nutze die Indy SMTP-Komponente und möchte in einem Memo den Verbindungsstatus (Connect, Send und DisConnect) mit protokollieren.
Die SMTP-Komponente hat ja die Eigenschaft OnStatus(). Nur weiß ich nicht wie ich diese für meinen Fall anwenden muss.

Delphi-Quellcode:

procedure TMain_Form.btn_EmailVersandClick(Sender: TObject);
Var 
IdSMTP: TIdSMTP;
begin 

...

  if not Assigned(IdSMTP) then begin                                               
    IdSMTP := TIdSMTP.Create();                                                    
    IdSMTP.Host := Trim(Emailoptionen_Form.edt_SMTP_Server.Text);                  
    IdSMTP.Username := Emailoptionen_Form.edt_SMTP_AnmeldeName.Text;               
    IdSMTP.Password := Emailoptionen_Form.edt_SMTP_Password.Text;                  
    IdSMTP.Connect;                                                                
    Memo1.Lines.Add(IdSMTP.OnStatus(???????)); //hier weiß ich nicht weiter
  end;
 
...

end;

Weiß hier jemand Rat wie ich in das Memo den Status reinbekomme? Meine Suche war bisher leider auch erfolglos.

Vielen Dank schon mal Vorab!

[Klaus01]

Guten Abend,

hier wird gezeigt wie onStatus benutzt werden kann.

Grüße
Klaus

[juergen]

Hallo Klaus,

danke für den Link!
Bei mir funktioniert es aus mir unbekannten Gründen leider nicht.
Erst dachte ich es lag an den LOKALEN Variablen IdSMTP und IdMessage.
Ich hatte diese beiden loakalen Variablen dann mal entfernt und die ganzen Namen der ehemaligen lokalen Variablen mit dem Namen der beiden Komponeten ersetzt.
In der SMTP-Komponeten hatte ich einen Doppelklick auf "OnStatus" gemacht und dort Memo_Status.Lines.Add(AStatusText); eingefügt.
So wie ich das verstanden habe sollte es doch so funktionieren.
Tut es aber leider nicht.

Hat jemand eine Idee warum das nicht funktioniert?