Вконтакте, кодировка

[Pasha_Sh]

Пишу программу на основе vk api. Пытаюсь отправить сообщение:

sig:=id+'api_id=3010372message='+URLEncode(memo1.lines.text)+'method=messages.senduid='+uid+'v=3.0'+secret;
sig:=md5(sig);
idhttp1.Get('http://api.vkontakte.ru/api.php?api_id=3010372&method=messages.send&uid='+uid+'&message='+URLEncode(memo1.Lines.Text)+'&sid='+sid+'&sig='+sig+'&v=3.0');

Но все равно контакт выдает ошибку, что неправильный sig.
Как исправить ошибку?

Функция URLENCode:

function TForm2.UrlEncode(const s: AnsiString): string;
var
  I: integer;
begin
  Result := '';
  for i := 1 to Length(S) do
    case S[i] of
      '%', ' ', '&', '=', '@', '.', #13, #10, #128..#255: Result := Result + '%'
        + IntToHex(Ord(S[i]), 2);
    else
      Result := Result + S[i];
    end;
end;