Авторизация на сайте DELPHI

[RikkiONE]

Всем привет!
Хочу сделать небольшую программульку, чтобы создавать под учеткой задания для работников своей конторы. Корпоративный сайт находится в сетке и использует Get и POST запросы. Вот для начала начинаю разбирать что к чему
Через яшу посмотрел что отправляется при логине

Request URL:
http://ui/login?welcome=true
Request Method:
POST
Status Code:
200 OK
Remote Address:

Referrer Policy:
no-referrer-when-downgrade
Response Headersview source
Cache-Control:
no-cache
Connection:
close
Content-Encoding:
gzip
Content-Language:
ru-RU
Content-Type:
text/html;charset=UTF-8
Date:
Thu, 11 Apr 2019 06:56:55 GMT
Expires:
Thu, 01 Jan 1970 00:00:00 GMT
Pragma:
No-cache
Server:

Transfer-Encoding:
chunked
Vary:
Accept-Encoding
Request Headersview source
Accept:
text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8
Accept-Encoding:
gzip, deflate
Accept-Language:
ru,en;q=0.9
Cache-Control:
max-age=0
Connection:
keep-alive
Content-Length:
119
Content-Type:
application/x-www-form-urlencoded
Cookie:
JSESSIONID=0000y_3dx63NIVUTe6K5ZIMf9JE:1atstsp6l; TJE=; TE3=
Host:
Origin:

Referer:
http://webclient/login/login.jsp?welcome=true
Upgrade-Insecure-Requests:
1
User-Agent:
Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/67.0.3396.103 YaBrowser/18.7.0.2695 Yowser/2.5 Safari/537.36
Query String Parametersview sourceview URL encoded
welcome:
true
Form Dataview sourceview URL encoded
allowinsubframe:
false
mobile:
false
username:
vasya
password:
123456
login:
jsp
loginstamp:
1,55497E+12
langcode:
RU

Можно брать на основе этот пример?

procedure TForm1.Button1Click(Sender: TObject);
var
LoginData, Response: TStrings;
begin
LoginData := TStringList.Create;
Response := TStringList.Create;
try
LoginData.Add('login_name='+Edit1.Text);
LoginData.Add('login_password='+Edit2.Text);
LoginData.Add('login=submit');
LoginData.Add('x=0');
LoginData.Add('y=0');
Response.Text := IdHTTP1.Post('http://www.ntvplus.ru/login-page.xl',LoginData); 
if Pos('logout',Response.Text)>0 then
ShowMessage('Авторизовались!')
else
ShowMessage('Авторизация не удалась!');
finally
LoginData.Free;
end;
end;

Если да то какие параметры под мой случай нужно использовать?

[PaHaNjkee]

allowinsubframe:
false
mobile:
false
username:
vasya
password:
123456
login:
jsp
loginstamp:
1,55497E+12
langcode:
RU

[RikkiONE]

Попробовал не работает Подскажите в чём может быть проблема?

procedure TForm1.Button1Click(Sender: TObject);

var

LoginData, Response: TStrings;

begin

LoginData := TStringList.Create;

Response := TStringList.Create;

try

LoginData.Add('allowinsubframe=false');

LoginData.Add('mobile=false');

LoginData.Add('username='+Edit2.Text);

LoginData.Add('password='+Edit3.Text);

LoginData.Add('login=jsp');

LoginData.Add('loginstamp=1554965787318');

LoginData.Add('langcode=RU');

Response.Text := IdHTTP1.Post('Edit1.Text',LoginData);

if Pos('logout',Response.Text)>0 then

ShowMessage('Авторизовались!')

else

ShowMessage('Авторизация не удалась!');

finally

LoginData.Free;

end;

end;

[RikkiONE]

Может в эдитах кодировку нужно поставить?