cls in console app

[value is NULL]

Hi

möchte in meiner console app einen cls befehl einbauen, habe dazu folgendes aus dem netz gefunden:

Delphi-Quellcode:

uses
  Windows;

{$R *.RES}

var
  sbi : TConsoleScreenBufferInfo;
  i : integer;
begin
  Writeln('A Console Applicaiton');
  Writeln('Press Enter To Clear The Screen');
  GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE),
                             sbi);
  Readln;
  GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE),
                             sbi);
  for i := 0 to sbi.dwSize.y do
    writeln;
  Writeln('Press Enter To End');
  Readln;
end.

das sieht jedoch mörder schw*** aus bis er alles mit leerzeichen befüllt hat.

mein projekt ist eine kleine shell zu basteln dh der aufbau des fensters sieht wie ein dos fenster aus...

hat jemand ne idee wie ich das umsetzen kann?

danke im voraus

LG