[M.A.D.M.A.N.]

Желательно так делать

Код:

function DosToWin(St: string): string;
var
  Ch: PChar;
begin
  Ch := StrAlloc(Length(St) + 1);
  try
    OemToAnsi(PChar(St), Ch);
    Result := Ch;
  finally
    StrDispose(Ch)
  end;
end;

З.Ы. вот это скорость, пока писал 2 поста влепили