[roman]

Ejemplo:

Código Delphi [-]
program Project1;

{$APPTYPE CONSOLE}

uses
  Windows, SysUtils;

var
  S: String;

begin
  S := 'Hola Román';
  CharToOemBuff(PChar(S), PChar(S), Length(S));
  WriteLn(S);
  ReadLn;
end.

// Saludos