eigene Konsole -> Readln Problem

[hboy]

ich hab bis jetzt nur den Konsolencode gepostet. okay und das Prog schaut so aus:

Delphi-Quellcode:

program Project1;

uses
  Windows,messages,CConsole;
var msg:TMsg;
  a: string;
begin

  write('testing, testing.... *hust*');
  TextColor := $FF0000;
  write('.... everything seems to be in order');
  TextColor := $00FF00;
  BackgroundColor := $505050;
  write('Console test done.');

  sleep(1000);

  readln(a);

  write('Readln Successful !!!');

  while GetMessage(msg,0,0,0) do  // aufhängen^^
  begin
    TranslateMessage(msg);
    DispatchMessage(msg);
    if not IsWindowVIsible(msg.hwnd) then break; // bis das Konsolenfenster geschlossen ist
  end;


end.