Как "отпустить" файл после неудачного копирования на FTP?

procedure TForm1.FindFile(Dir: String);
Var SR:TSearchRec;
    FindRes:Integer;
    T:TDateTime;
begin
     FindRes:=FindFirst(Dir+'*.pdf',faAnyFile,SR);
    While FindRes=0 do
        begin
        if ((SR.Attr and faDirectory)=faDirectory) and ((SR.Name='.')or(SR.Name='..')) then
        begin
        FindRes:=FindNext(SR);
        Continue;
        end;
        if ((SR.Attr and faDirectory)=faDirectory) then
        begin
        FindFile(Dir+SR.Name+'');
        FindRes:=FindNext(SR);
        Continue;
        end;
    FindFile(Dir+SR.Name+'');
If IdFTP1.Connected=True then 
Begin
    If Stop=False then
    Begin
    T:=Time;
    if ((T>StrToTime('00:01:00')) and (T<StrToTime('18:45:00'))) and (CheckBox2.Checked=True) then
    Begin
    Memo1.Lines.Add('Копирование  "'+SR.Name+'" ia FTP : '+IdFTP1.Host+'');
    Application.ProcessMessages;
    IdFTP1.Put(''+Dir+SR.Name+'' , ''+SR.Name+'' , False);
    Memo1.Lines[Memo1.Lines.Count-1]:=Memo1.Lines[Memo1.Lines.Count-1]+' --  завершилось успешно';
    hendle:=sr.FindHandle;
    Gauge1.Progress:=(Gauge1.Progress)+1;//i?ioaiou +1
    inc(FTPCOPI);
    Label5.Caption:='Inoaeinu neiie?iaaou PDF: '+IntToStr ((c3+c26)-FTPCopi)+' oo.';
    Timer1.Interval:=60000;
    Application.ProcessMessages;
        DeleteFile(Dir+SR.Name);
    FindRes:=FindNext(SR);
    end
    else
    begin
    Memo1.Lines.Add('---------------------------------------------------------------------------------------------------------------------------');
    Memo1.Lines.Add('A?aiy ?ac?aoaiiia aey eiie?iaaiey auoei! Eiie?iaaiea ?ac?aoaii n 22:00 ii?e ai 18:45 aa?a?a.');
    Memo1.Lines.Add('Aee??ai "Nii" i?ioaao?u eiie?iaaiey ia 5 ?an.');
    Form4.Show;
    Form4.Timer1.Enabled:=True;
    Application.ProcessMessages;
    Sleep(19800000);
    Timer1.Enabled:=False;
    Form4.Hide;
    Application.ProcessMessages;
    end;
    end
    else
    Begin
    FindRes:=10;
    Memo1.Lines.Add ('    ');
    Memo1.Lines.Add ('Eiie?iaaiea ia OOI auei inoaiiaeaii i?eioaeoaeuii iieuciaaoaeai!');
    Memo1.Lines.Add ('    ');
    IdFTP1.Disconnect;
    Application.ProcessMessages;
    end;
end
else
Begin
IdFTP1.Disconnect;
Memo1.Lines.Add('Oaee '+SR.Name+' IA neiie?iaai ia FTP :'+IdFTP1.Host+'  iii?iaoai ?a?ac 30 naeoia!');
Form4.Show;
Timer1.Enabled:=True;
Application.ProcessMessages;
Sleep(30000); //eo?eou 30 naeoia
Timer1.Enabled:=False;
Form4.Hide;
Application.ProcessMessages;
IdFTP1.Connect();
end;
     end;
     FindClose(SR);
end;

except 
    IdFTP1.Disconnect;
    DeleteObject(Hendle);
    If IdFTP1.Connected=True then Memo1.Lines[Memo1.Lines.Count-1]:=Memo1.Lines[Memo1.Lines.Count-1]+' --  завершилось ошибкой!;  
Memo1.Lines.Add ('            ');