uses crt; 
readkey;

[dcc32 Fatal Error] Console1.dpr(8): F2613 Unit 'crt' not found.

program Console1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, crt;

begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
    writeln('Slm.');
    readkey;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

ReadLn;

readkey;

readln;

uses
  System.SysUtils, crt in 'crt_d7.pas';

[dcc32 Error] crt_D7.pas(1116): E2010 Incompatible types: 'AnsiChar' and 'Char'
[dcc32 Error] crt_D7.pas(1138): E2010 Incompatible types: 'AnsiChar' and 'Char'

writeln('äöü'); {здесь 'aou' с умляутами, т.е. с двумя точками, показывает неправильно на сообщении форума}

procedure mywriteln(Text: string);
var
NumWritten: DWORD;
begin
 WriteConsole(GetStdHandle(STD_OUTPUT_HANDLE), PChar(Text), Length(Text), NumWritten, nil);
 writeln;
end;

MyWriteln('äöü');

SetConsoleOutputCP(884); {мне нужна немецкая кодировка}
writeln('äöü'); {не работает}