Не могу составить команду

[Mihanches]

var
topos:integer;
toftp:string;
begin
if copy(msg,1,4)='<up>' then
begin
topos:=pos('-to ',msg);
Edit4.Text:=copy(msg,5,length(msg)-topos);
toftp:=copy(edit4.Text, topos+4, length(toftp));
idftp1.connect;
sleep(1000);
form1.idftp1.put(edit4.Text, toftp, false );
sleep(1000);
form1.idftp1.disconnect;
end; end;

Компиллятор ошибок не выдает, а вот при тестинге на фтп файл не заливаеться. В чем дело. Для тех кто не разобрался в этом коде: мне нужно что бы при получении команды <up>C:\file.exe -to exefile.exe файл C:\file.exe заливался на фтп как exefile.exe .