Problem mit TStringlist und String

[Gruber_Hans_12345]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ToAddressList: TStringList;
begin
  button1.Enabled := false;
  Auslesen;
  smtp.PostMessage.Date := DateToStr(date());
  ToAddressList := TStringList.Create    <<<< Erzeugen
  ToAddressList.Clear;
  ToAddressList.Text := Mail;
 
 ...
  ToAddressList.Free;       <<<< Freigeben

wobei sollte eigentlich auch so gehn :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  button1.Enabled := false;
  Auslesen;
  smtp.PostMessage.Date := DateToStr(date());
  smtp.PostMessage.ToAddress.Text := Mail;
  ...