Falscher String wird an Thunderbird übergeben?

[Grolle]

Hi, hier etwas Code:

Delphi-Quellcode:

      all := countmails;
      if not (all = '') then
        begin
          x := Pos(';',all);
          first := copy(all,0,x-1);
          all := StringReplace(all,first+';','',[rfReplaceAll]);

und countmails:

function Tform1.countmails : string;
var
s : string;
begin
  AdsTable1.First;
  while not AdsTable1.Eof do
    begin
      if AdsTable1.FieldByName('Mail').AsString <> '' then
      s := s + AdsTable1.FieldByName('Mail').AsString + ';';
      AdsTable1.Next;
    end;
  s := Copy(s, 1, Length(s)-1);
  result := s;
end;

Greetz...