params:=TStringList.Create;
responseres:=TStringList.Create;
params.Add('login=a4at');
params.Add('password=a4at');
responseres.Text:=http1.Post('login.namba.kz/login.php',params);