Все получилось в Memo1 выводит код страницы.
Настройки IdHttp использовал как и Berman
Вот код.


procedure TForm1.Button1Click(Sender: TObject);
var
s,pass,str,uns: String;//переменный типа стринг
outfo: TStringList; // перменная типа стринглист
begin
pass := StringReplace(edit2.text, ' ', '+', [rfReplaceAll, rfIgnoreCase]);
outfo := TStringList.Create; //создаем пост перемменую
idhttp1.Get('http://vkontakte.ru/login.php?op=a_login_attempt'); //забераем исходный текст адресса
outfo.Add('act=login'); //создаем пост запрос
outfo.Add('email='+edit1.text); //создаем пост запрос
outfo.Add('pass='+pass); //создаем пост запрос
try
uns:=UTF8toANSI(idhttp1.post('http://login.vk.com/', outfo)); //отправляем пост запро на нужный адресс
s:=copy(uns, 286, 56); //вытягиваем 56 значную строку
finally
idhttp1.Request.CustomHeaders.Add('Cookie: remixsid=' + s); //отправляем запрос
str := idhttp1.Get('http://vkontakte.ru/profile.php'); //получаем исходник указаного адресса
Memo1.Text:=str; // Выводим в мемо исходный код страницы више указаной
IdHTTP1.Disconnect; // дисконект
end
end;


Теперь пару вопросов....
1. Что мы делаем тут idhttp1.Request.CustomHeaders.Add('Cookie: remixsid=' + s);
2. Что мы делаем тут pass := StringReplace(edit2.text, ' ', '+', [rfReplaceAll, rfIgnoreCase]);
3. Чтоб ввойти на другой аккаунт надо писать IdHTTP1.Disconnect;
4. Зачем это надо
memo1.Lines.add('Cookies: '+s);
IdCookieManager1.AddCookie('remixsid='+s+ '; path=/; ','vkontakte.ru');
Всем спасибо оказал помощь....