Mit MoveFile/MoveFileex Dateien verschieben

[Litti76]

es fehlt mir nur noch eine winzigkeit, bitte um hilfe. er verschiebt es nicht warum nicht??????

procedure TForm1.Button1Click(Sender: TObject);
var
Start : String;
Ziel : String;
begin
Start := ((directoryListbox1.items[directorylistbox1.itemindex])+(FileListBox1.items[FileListBox1.itemindex]));
Ziel := (directoryListbox2.items[directorylistbox2.itemindex]);
Memo1.seltext := (Ziel) ;
MoveFile(PChar(Start),PCHar(Ziel));

end;