Как отпустить файл, который сам же занял?

 Procedure ScanDir(StartDir: String; Mask:string; List:TStrings);
Var SearchRec : TSearchRec;
Begin
 IF Mask ='' then Mask:= '*.*';
 IF StartDir[Length(StartDir)] <> '\' then StartDir := StartDir + '\';
  IF FindFirst(StartDir+Mask, faAnyFile, SearchRec) = 0 then
   Begin
    Repeat
       { Чтобы выполнение "не подвисало" }
     Application.ProcessMessages;
     IF (SearchRec.Attr and faDirectory) <> faDirectory then
        List.Add(StartDir + SearchRec.Name) else
         IF (SearchRec.Name <> '..') and (SearchRec.Name <> '.') then
       Begin
         List.Add(StartDir + SearchRec.Name + '\');
           { Рекурсивный вызов }
         ScanDir(StartDir + SearchRec.Name + '\',Mask,List);
       End;
    Until FindNext(SearchRec) <> 0;
    FindClose(SearchRec);
  End; {IF}
end;

procedure TfrmMain.Button3Click(Sender: TObject);
var
  hFile: THandle;
begin
  if OpenDialog1.Execute then
  begin
    Memo1.Clear;
    hFile := CreateFile(Pchar(OpenDialog1.FileName), FILE_SHARE_DELETE, 0, nil, OPEN_EXISTING, 0, 0);
    if hFile = INVALID_HANDLE_VALUE then
      Memo1.Lines.Add('занят"')
    else
    begin
      CloseHandle(hFile);
      Memo1.Lines.Add('свободен"')
    end;
  end;
end;