Laden von .jpg in Listbox funzt net

[SaFu]

Es war eine sehr schwere geburt aber es funktioniert

Dank dir Tausendmal Matze für deine gedult

Delphi-Quellcode:

procedure TForm4.Button7Click(Sender: TObject);
var  AlterPfad,NeuerPfad :string;
begin
if OpenDialog1.Execute then
 begin
 AlterPfad := OpenDialog1.FileName;
   NeuerPfad := ExtractFilePath(ParamStr(0))+('Bilder\'+ ExtractFileName(OpenDialog1.FileName));
   CopyFile(PChar(AlterPfad), PChar(NeuerPfad), true);
  FileListBox1.Items.Add(ExtractFileName(OpenDialog1.FileName));
 end;
end;

so klappts