[RobinStone]

Добрый день уважаемые господа програмисты! И вновь требуется Ваша помощь (как обычно в нашем теперешнем мире). Есть программа которая читает почту. Этакий почтовый клиент. Однако при отображении текста в memo, например, текст выглядит как "Алекс-Юстасу", сплошная шифрограмма. Вопрос : как быть?
зарание спасибо!

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47

procedure TForm1.SpeedButtonClick(Sender: TObject); var f: Integer;     name: string; begin cler; if work = True then begin try Form1.TIdPOP.Connect(); if Form1.TIdPOP.Connected = True then begin                                       all:= Form1.TIdPOP.CheckMessages;                                       Form1.Label1.Caption:= IntToStr(all);                                       form1.Label3.Font.Color:= clLime;                                       form1.Label3.Caption:= '> Последний просмотр был в '+timeToStr(Now);                                       Form1.lst1.Clear;                                       for f:= 1 to all do begin                                                           Form1.IdMessage2.Clear;                                                           Form1.TIdPOP.Retrieve(f,Form1.IdMessage2);                                                             Form1.IdMessage2.CharSet:='koi8-r';                                                           if Form1.IdMessage2.Subject = '' then begin                                                                                                 name:= 'Нет заголовка.';                                                                                                 dat:= 'not';                                                                                                 tim:= 'not';                                                                                                 end                                                                                            else begin                                                                                                 dat:= DateToStr(Form1.IdMessage2.Date);                                                                                                 name:= form1.IdMessage2.Subject;                                                                                                 tim:= TimeToStr(Form1.IdMessage2.Date);                                                                                                 end;                                                           Form1.lst1.Items.Add('');                                                           Form1.lst1.Items[f-1]:= IntToStr(f)+ ' > '+ name + ' : '+dat+ ' / '+tim;                                                           end;                                       if allMemory > all then allMemory:= all;                                       if (allMemory <> all) and (first = False) and (Form2.CheckBox1.Checked = True) then theMail;                                       if first = True then begin                                                            first:= False;                                                            allMemory:= all;                                                            end;                                       end; except Form1.Label3.Font.Color:= clRed; form1.Label3.Caption:= '> Превышен лимит времени TIME OUT !'; end;   Form1.TIdPOP.Disconnect;                     end else form1.Label3.Caption:= '> Не установлены данные адреса! Войдите в НАСТРОЙКИ'; end;