Program web;
var conn: http;
htmlBody: string;
contentType: string;
begin
if not openHttp(conn, 'http://www.google.com') then halt;
setHttpMethod(conn, GET); //Устанавливает один из следующих типов запроса http
addHttpHeader(conn, 'User-agent', 'MIDletPascal browser'); //Вот помойму сам запрос
if sendHttpMessage(conn) <> 200 then halt;
htmlBody := getHttpResponse(conn);
contentType := getHttpHeader(conn, 'Content-type');
closeHttp(conn); //Закрывает открытое соединение http
end.
Если не так подправьте меня