Problem mit TStringlist und String

[Stadtfuchs]

Delphi-Quellcode:

// ########## Werte aus der Registry auslesen ##################################
procedure TForm1.Auslesen;
var
  regist: TRegistry;
  i: WideChar;
begin
  regist := TRegistry.Create;
  regist.RootKey := HKEY_LOCAL_MACHINE;
  if regist.OpenKey('SOFTWARE\MES', true) = true then
    for i := 'A' to 'Z' do
      Buchstabe := i;
      Mail := regist.ReadString(Buchstabe + 'eMail');
      Wiederholungen := regist.ReadInteger(Buchstabe + 'Anzahl');
      {try
        Kopieren;  // Testdatei wird kopiert
      Except
        EMail;
      End;}
  regist.Free;
end;

// ########## Verbindung zum Host herstellen ###################################
procedure TForm1.Button1Click(Sender: TObject);
var
  ToAddressList: TStringList;
begin
  button1.Enabled := false;
  Auslesen;
  smtp.PostMessage.Date := DateToStr(date());
  ToAddressList.Clear;
  ToAddressList.Text := Mail;
  smtp.PostMessage.ToAddress.AddStrings(ToAddressList);
  if pop.Connected = true then
    pop.Disconnect
  else
    begin
      try
        pop.Connect;
      except
        showmessage('Keine Verbindung zu POP!');
      end;
    end;
  if smtp.Connected = true then
    smtp.disconnect
  else
    begin
      try
        smtp.Connect;
      except
        showmessage('Keine Verbindung zu SMTP!');
      end;
    end;
end;

// ########## Nachricht absenden sofern Verbindung besteht #####################
procedure TForm1.smtpConnect(Sender: TObject);
begin
  try
    smtp.SendMail;
  except
    showmessage('Senden der Mail fehlgeschlagen!');
  end;
  button1.Enabled := true;
  try
    smtp.Disconnect;
  except
    showmessage('Konnte nicht von SMTP trennen!');
  end;
  try
    pop.Disconnect;
  except
    showmessage('Konnte von POP nicht trennen!');
  end;
end;