1:
2:
3:
4:
5:
6:
7:
8:
9:

  for j:=0 to lbsave.items.Count-x do                                           
  begin
  verz1:=edit1.text+lbsave.items[j];
  verz2:=edit2.Text+lbsave.items[j];
  movefile (pchar(verz1) , pchar(verz2));
  //if fileexists(pchar(verz1)) then showmessage('datei 1 existiert');
  //if fileexists(pchar(verz2)) then showmessage('datei 2 existiert');
  //showmessage (verz1 + ' // ' + verz2);
  end;					

1:
2:
3:
4:

  if not MoveFile(Verz1, Verz2) then
  begin
    ShowMessage('Verschieben fehlgeschlagen!' + sLineBreak + 'Fehlermeldung:' + sLineBreak + SysErrorMessage(GetLastError));
  end;