Cthulchu, ты посмотри с какими аргументами вызывается процедура...
Вроде бы так надо
http1.host := 'ya.ru';
http1.Post := 80;
http1.Connect;