function VK_OpenWriteBox(id: string): string;
var
 Str : string;
begin
 Str := HTTP.Get('http://vkontakte.ru/mail.php?act=a_write_box&to=' + id);
 str := Copy(str, Pos('decodehash', str) +12, Length(str));
 Delete(str, Pos(#39, str), Length(str));
 Result := str;
end;

procedure VK_SendMessage(id, hash, msg: string);
var
 Post : TStringList;
begin
 Post := TStringList.Create;
 Post.Add('act=sent');
 Post.Add('ajax=1');
 Post.Add('chas=' + hash);
 Post.Add('to_id=' + id);
 Post.Add('title=))');
 Post.Add('message=' + AnsiToUTF8(msg));
 Post.Add('from_box=1');

 HTTP.Request.Referer := 'http://vkontakte.ru/mail.php?act=a_write_box&to=' + id;
 HTTP.Post('http://vkontakte.ru/mail.php', Post);
 Post.Free;
end;