нечто подобное этому..
этот пример с Basic-авторизацией.
Для работы требуется наличие библиотеки lib_base64
program NewProjectz;
uses base64;
var conn : http;
begin
if not OpenHttp(conn, 'http://адрес.до.части.с.basic.авторизацией') then Halt;
SetHttpMethod(conn, GET);
AddHttpHeader(conn, 'User-agent', 'MIDletPascal browser');
AddHttpHeader(conn, 'Authorization', 'Basic '+ base64.encode('user:password'));
AddHttpHeader(conn, 'Connection', 'Close');
if SendHttpMessage(conn) <> 200 then Halt;
// дальнейшие операции...
CloseHttp(conn);
end.