функция, как совободить файл от фокуса и удалить?

[Зод]

function recognize(filename: string; apikey: string; is_phrase: boolean; 
is_regsense: boolean; is_numeric: boolean; min_len: integer; max_len: integer): string;
var
ftype,tmpstr,captcha_id: String;
i: integer;
http: TIdHTTP;
multi: Tidmultipartformdatastream;
begin
if FileExists(filename)=false then begin result:='ERROR: file not found'; exit; end;

ftype:='image/pjpeg';
if strpos(Pchar(filename),'jpg')<>nil then ftype:='image/pjpeg';
if strpos(Pchar(filename),'gif')<>nil then ftype:='image/gif';
if strpos(Pchar(filename),'png')<>nil then ftype:='image/png';

multi:=Tidmultipartformdatastream.Create;
multi.AddFormField('method','post');
multi.AddFormField('key',apikey);
multi.AddFile('file',filename,ftype);
if is_phrase=true then multi.AddFormField('phrase','1');
if is_regsense=true then multi.AddFormField('regsense','1');
if is_numeric=true then multi.AddFormField('numeric','1');
if min_len>0 then multi.AddFormField('min_len',inttostr(min_len));
if max_len>0 then multi.AddFormField('max_len',inttostr(max_len));

http:=TIdHTTP.Create(nil);
tmpstr:=http.Post('http://antigate.com/in.php',multi);
http.Free;
captcha_id:='';
if strpos(Pchar(tmpstr),'ERROR_')<>nil then begin result:=tmpstr; exit; end;
if strpos(Pchar(tmpstr),'OK|')<>nil then captcha_id:=AnsiReplaceStr(tmpstr,'OK|','');
if captcha_id='' then result:='ERROR: bad captcha id';
for i:=0 to 20 do
  begin
  Application.ProcessMessages;
  sleep(5000);
  http:=TIdHttp.Create(nil);
  tmpstr:=http.Get('http://antigate.com/res.php?key='+apikey+'&action=get&id='+captcha_id);
  http.Free;
  if strpos(Pchar(tmpstr),'ERROR_')<>nil then begin result:=tmpstr; exit; end;
  if strpos(Pchar(tmpstr),'OK|')<>nil then
    begin
    result:=AnsiReplaceStr(tmpstr,'OK|','');
    exit;
    end;
  Application.ProcessMessages;
  end;
result:='ERROR_TIMEOUT';
end;

Эта сама функция она отправляет файл но не снимает с него фокуса что ли, вообщем удалить файл пока работает программа (даже если функция уже отработала) нельзя. Хотел бы узнать а как сделать что бы можно.
Второй вопрос а можно как-нибудь отправить файл этой функцией не с диска компьютера а например HTTP.Document синапса? что бы не создавать постоянно файлы которые и сама программа удалить не может (функция не дает же)

[Пепел Феникса]

вы не освобождаете объект multi.

[Зод]

Даже если воткнуть в конец функции Multi.Free; все равно проблема остается: ни удалить, ни перезаписать.

[Mifody]

1. сколько пользовал эту функцию, ни разу файл не лочился. Так что скорее всего проблема не здесь
2. по ссылке страница автора на антигейте перейти не? Там модуль в т.ч. и для отправки через TMemoryStream