Проблемы с кодировкой

[Александр74]

Здравствуйте!

На телефоне LG полетел тач, смог изловчиться и скинуть все таки все так необходимые мне контакты в формате *.vcf. Данный файл открыл блокнотом, получил строки вида ( по сути, приведу один контакт):
...
BEGIN:VCARD
VERSION:2.1
N;ENCODING=QUOTED-PRINTABLE;CHARSET=UTF-8:=D0=A0=D0=BE=D0=B3=D0=BE=D0=B7=D0 =B8=D0=BD=D0=B0;=D0=90=D0=BA=D1=81= D0=
=B0=D0=BD=D0=B0
TEL;HOME;CELL:+79080816404
END:VCARD
...
Понятно, что имя контакта закодировано. Но я в декодировке не силен, к сожалению... Попробовал через "Штирлиц" текстовый открыть файл. Автоматом он мне его сразу декодировал. Но за место могучего русского языка я увидел какой-то набор символов.
Помогите, господа программисты!

[BDA]

Рогозина;Аксана

CHARSET=UTF-8 - кодировка utf8.
=D0=A0 -это Р - а текстовом файле это байты $D0$A0.
Что конкретно нужно получить?
http://ru.wikipedia.org/wiki/VCard

Небольшая заготовочка:

procedure TForm1.Button1Click(Sender: TObject);
const
  alf = '0123456789ABCDEF';

var
  i, j, a: integer;
  f: tmemorystream;

begin
  f := tmemorystream.Create;
  for i := 0 to memo1.lines.count - 1 do
  begin
    j := 1;
    while j < length(memo1.Lines[i]) do
    begin
      a := (pos(memo1.Lines[i][j + 1], alf) - 1) * 16 + pos(memo1.Lines[i][j + 2], alf) - 1;
      f.Write(a, 1);
      j := j + 3;
    end;
    f.Write(#13#10, 2);
  end;
  f.SaveToFile('1.txt');
  f.free;
end;

На форме 1 мемо и 1 кнопка с данным кодом.
В мемо:

=D0=A0=D0=BE=D0=B3=D0=BE=D0=B7=D0=B8=D0=BD=D0=B0
=D0=90=D0=BA=D1=81=D0=B0=D0=BD=D0=B0

В 1.txt текст в кодировке utf8, которая нормально показывается обычным блокнотом.