asm
mov EBX, Number
shr ebx,10 
mov mulResult,ebx
end;

if mulResult * 1024 = Number Then Result := true

 const
ms = 1/24/60/60/1000; //одна милисекунда
var
t1, t2: tdateime;
begin
t1 := now;
{Твой код}
t2 := now - t1;
ShowMessage('Твой код выполнялся:'+inttostr(trunc(t2/ms))+'милисеунд');
end;

var s:string;
      pd:TStringList;        
begin
 pd:=TStringList.Create;
 pd.Add('Login=vasya');
 pd.Add('Pass=qwerty');
 s:=HTTP.Post('http://site.ru/login.php',pd);
 pd.Free;
end;

var s:string;
      pd:TStringList;
     file:textfile;       
begin
 s:=HTTP.Get('http://site.ru/');
 {ищем в переменной s ссыль на капчу}
 //качаем ее
 s:=HTTP.Get('http://site.ru/captcha.jpg');
 assignfile(fil,'111.jpg');
 rewrite(fil);
 writeln(fil,s);
 closefile(fil); 
 //отсылаем
 pd:=TStringList.Create;
 pd.Add('Login=vasya');
 pd.Add('Pass=qwerty');
 pd.Add('Captcha=Nh7T5');
 s:=HTTP.Post('http://site.ru/login.php',pd);
 pd.Free;
end;