[RobinStone]

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

Код:

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;