1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

unit ConsoleUtils;

interface

uses
  Windows;

procedure WriteLn(const Value: string);

implementation

procedure WriteLn(const Value: string);
var
  AsciiValue: string;
begin
  SetLength(AsciiValue, Length(Value));
  CharToOem(PChar(Value), PChar(AsciiValue));
  System.WriteLn(AsciiValue);
end;

end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function(var t: TTextRect; const b; cnt: Longint): Pointer;
var
  buf: string;
begin
  SetLength(buf, cnt+1);
  CharToOem(PChar(b), PChar(buf));
  asm //Call to some hidden System Procedure ;-)
    mov eax, t
    mov edx, buf
    mov ecx, cnt
    call System.@WriteBytes
  end;
end;