String und TString

[Jens Schumann]

Hallo,
versuche es mal so:

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var
Pfad      : String;
Filename  : String;
iCnt : Integer;
begin
  Pfad:=ExtractFilePath(Application.Exename);
  Pfad:=IncludeTrailingBackSlash(Pfad);
  For iCnt:=0 to ListBox1.Items.Count-1 do
  begin
    Filename:=Pfad+ListBox1.Items[iCnt];
    sendNewsLetter  (Filename,memo1.Lines,'[e-mail]','Test','mpnormal','text/html','mail.domain.com','','',25,0);
  end;
end;

Den Parameter an kannst Du Dir dann sparen.