Ошибка отображения в TMemo v2.0 (delphi)

[dyonysos]

получаю текст из коммандной строки(http://www.programmersforum.ru/showt...6#post333176):

procedure TForm1.Button1Click(Sender: TObject);
begin
       Memo1.Lines.Add(GetDosOutput(Edit1.Text));
end;

и вот что получается:


нашел на форуме:

procedure TForm1.Button1Click(Sender: TObject);
begin
       Memo1.Lines.Add(utf8toansi(GetDosOutput(Edit1.Text)));
end;

и вот что из этого вышло:



...уже лучше но как зделать так штоб показывало и русские буквы?

п.с. надеюсь я не надоел своими ламерскими постами

[Eofol]

var
  s: RawByteString;
begin
  s := RawByteString(GetDosOutput(Edit1.Text));
  SetCodePage(s, 866, False);
  Memo1.Text := string(s);

что-то типа того...

[dyonysos]

я обожаю этот форум!