Delphi android post запрос

var
  LoginInfo: TStringList;
  Response: TStringStream;
begin
  try
    LoginInfo := TStringList.Create;
    Response := TStringStream.Create('');
    LoginInfo.Add('user='+edit1.text);
    LoginInfo.Add('pass='+edit2.text);
    IdHTTP1.post('http://asd.ru/qwe.php',LoginInfo,Response);
    Showmessage(Response.DataString);
  finally
    begin
      Response.Free;
      LoginInfo.Free;
    end;
  end;

try
 ... 
except 
on e:exception do
  showmessage(e.message);
end

var
idhttp:tidhttp;
st:tstringstream;
PostData:tstringlist;
begin
idhttp:=tidhttp.Create(nil);
PostData := TStringList.Create;
idhttp.request.contenttype:='text/html; charset=windows-1251';
st:=tstringstream.Create('user='+edit1.text+' '+'pass='+edit2.text,tencoding.ANSI);
idhttp.get('http://asd.ru/qwe.php',st);
showmessage(st.datastring);
idhttp.free;
st.Free;
end;