[vitalik1]

Вот рабочий код:

var conn: http;
   htmlBody: string;  
   contentType: string;  
   i: integer;
begin  
   if not openHttp(conn, 'http://www.s-c.ru') then halt;  
   setHttpMethod(conn, GET);  
   addHttpHeader(conn, 'User-agent', 'MIDletPascal browser');
   i:=sendHttpMessage(conn);
   i:=formaddstring('code: '+i+chr(10));  
   htmlBody := getHttpResponse(conn);  
   contentType := getHttpHeader(conn, 'Content-type');  
   i:=formaddstring(htmlBody);
   showform; 
   closeHttp(conn);
   delay(20000);  
end. 


ЗЫ: При подключении к http://www.boolean.name выдает ошибку 302. Аналогично http://www.google.com , а http://www.google.ru нормально (т.е. код 200).