Wie bastel ich ordentlich ein Debug-Fenster

[himitsu]

Code:

begin
[color=#ff0000]  DebugForm := TDebugForm.Create(nil);
  If ParamStr(1) = '-debug' then DebugForm.Show[/color]
  Application.Initialize;
  Application.Title := 'LPT-Steuerung';
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TInfoForm, InfoForm);
  Application.CreateForm(TOptionenForm, OptionenForm);
  Application.Run;
end.