[opel431]

Проблема что при выводе в Memo он выдает квадратики... Что вы посоветуете »

Среда Delphi 2009 »

var
Buffer:PAnsiChar;
......
......

begin
.....
OemToChar(Buffer,PWideChar(Buffer)); //XP
; OemToAnsi(Buffer, Buffer) //Seven
AMemo.Text:=AMemo.Text+String(Buffer);
.....
end;