So ich habe es jetzt geschafft. Das war ja wohl so simpel und ich dummerchen komm nicht drauf
Delphi-Quellcode:
procedure TfrmMain.TrayIconDblClick(Sender: TObject);
begin
Self.Show;
TrayIcon.Visible := False;
Memo2.SelStart := Length(Memo2.Text);
Memo2.Perform(EM_SCROLLCARET,0,0);
end;
Danke an alle für die schnelle Hilfe. Schönen Tag noch wünscht
ddcool