Про консоль, Использование оной из GUI Опции

[rzr]

С возвращением! Я сразу с вопросом - допустим, процедура:

 
procedure Delete;

var

  Console:Handle;
  Dummy:PSecurity_Attributes;

begin

  Dummy:=nil;  //этот способ я взял с  freepascal.ru , если ставить непосредственно в функцию - компилятор
                       //ругаеццо

  AllocConsole;

  Console:=CreateConsoleScreenBuffer(GENERIC_READ+GENERIC_WRITE,
                                     0,Dummy^,CONSOLE_TEXTMODE_BUFFER,nil);

  SetConsoleActiveScreenBuffer(Console);

  write('Некий текст');

  readkey;

  FreeConsole;

end;

При её вызове (вследствие нажатия на кнопку) открывается окно консоли, но текста в нем нет. Более того, если закрываю консоль, то закрывается и приложение.

Скажите, пожалуйста, что не так?