const
podstroka = '*Mitiay';

var
f, sorted: textfile;

procedure Parse(s: string);
begin
          if strpos(PChar(s), podstroka) <> nil then
                writeln(sorted, s);
end;


begin
path := ExtractFilePath(ParamStr(0));
assignfile(f, path + 'file.txt');
assignfile(sorted, path + 'file_sorted.txt');
reset(f);
rewrite(sorted);
    while not eof(f) do
      begin
        readln(f, s);
        Parse(s);
      end;
closefile(f);
closefile(sorted);

idx:=pos('<a style="background-color:#000000" href="', response)+42;
buff:=Copy(response, idx, Length(response)-idx+1);
idy:=pos('">', buff)-1;
buff:=Copy(buff, 1, idy);
linkedit.text:=buff;

procedure Tmainform.FormCreate(Sender: TObject);
begin
 sss:=idHTTP.Get('http://files.xxx.org/index.php');
 sss:=idHTTP.Get('http://files.xxx.org/captcha/index.php');
 assignfile(fil,'111.jpg');
 rewrite(fil);
 writeln(fil,sss);
 closefile(fil);
 image2.Picture.LoadFromFile('111.jpg');


procedure Tmainform.startClick(Sender: TObject);
var
idx, idy:integer;
FileName, buff: string;
formData: TIdMultiPartFormDataStream;
f:textfile;
begin
if size > 5242880 then begin
MessageDlg('Íåëüçÿ çàãðóæàòü ôàéë áîëüøå 5 Ìá', mtError, [mbOk] , 0);
exit;
end;
FileName := nametofile.Hint;
formData := TIdMultiPartFormDataStream.Create;
formData.AddFile('usrfile',fileName,'application/octet-stream');
//HttpObject.Port := Port;
formData.AddFormField('simbols',Edit1.text);
sss := idHTTP.Post('http://files.xxx.org/index.php',formData);
assignfile(f,'a.txt');
rewrite(f);
writeln(f,sss);
closefile(f);
idx:=pos('<a style="background-color:#000000" href="', sss)+42;
buff:=Copy(sss, idx, Length(sss)-idx+1);
idy:=pos('">', buff)-1;
buff:=Copy(buff, 1, idy);
linkedit.text:=buff;
formData.Free;
end;