[NumLock]

на Delphi 6 прекрасно работает:

Код:

procedure TForm1.AOemToAnsi;
var
  s: String;
begin
  Memo1.Lines.LoadFromFile('d:\0');
  SetLength(s, Length(Memo1.Text));
  OemToAnsi(PChar(Memo1.Text), PChar(s));
  Memo1.Text:=s;
end;