Wie bastel ich ordentlich ein Debug-Fenster

[Qnkel]

Argh.

Jetz spielt mein ganzes Programm verrückt. Auch nachdem ich es in den Urzustand zurück gesetzt habe!

Es find keine Variablen mehr und so weiter...

Delphi-Quellcode:

var
  MainForm: TMainForm;
  data, Port: Word;
  stat: String;
  i: Integer;

procedure TMainForm.FormCreate(Sender: TObject);
  {If ParamStr(1) = '-debug' then
    DebugForm.Show
  Else
    DebugForm.Hide;}
  //Port definieren
  Port := str2int('378', True);
  DebugForm.DebugMemo.Lines.Add('Port gesetzt auf: 378');
  DebugForm.DebugMemo.Lines.Add('- - -');
  //Treiber starten
  if ZLIOStarted then
    begin
      Statusbar.Panels[0].Text := 'Treiber gestartet !';
      DebugForm.DebugMemo.Lines.Add('Treiber erfolgreich gestartet !');
      DebugForm.DebugMemo.Lines.Add('- - -');
    end
  else
    begin
      Statusbar.Panels[0].Text := 'Fehler bei Treiber!';
      DebugForm.DebugMemo.Lines.Add('Fehler! Treiber nicht gestartet.');
      DebugForm.DebugMemo.Lines.Add('- - -');
    end;
  Portread;
end;

Zitat:

[Warnung] MainUnit.pas(58): W1019 FOR-Schleifenvariable muss eine einfache lokale Variable sein
[Warnung] MainUnit.pas(65): W1019 FOR-Schleifenvariable muss eine einfache lokale Variable sein
[Warnung] MainUnit.pas(90): W1019 FOR-Schleifenvariable muss eine einfache lokale Variable sein
[Fehler] MainUnit.pas(123): E2070 Unbekannte Direktive: 'Port'
[Fehler] MainUnit.pas(133): E2029 ';' erwartet, aber 'ELSE' gefunden
[Fehler] MainUnit.pas(135): E2003 Undefinierter Bezeichner: 'Statusbar'
[Fehler] MainUnit.pas(135): E2066 Operator oder Semikolon fehlt
[Fehler] MainUnit.pas(138): E2029 '.' erwartet, aber ';' gefunden
[Warnung] MainUnit.pas(140): W1011 Text hinter dem abschließenden 'END.' wird vom Compiler ignoriert
[Fehler] MainUnit.pas(23): E2065 Ungenügende Forward- oder External-Deklaration: 'TMainForm.OptionenButtonClick'
[Fehler] MainUnit.pas(24): E2065 Ungenügende Forward- oder External-Deklaration: 'TMainForm.Button1Click'
[Fehler] MainUnit.pas(25): E2065 Ungenügende Forward- oder External-Deklaration: 'TMainForm.Button2Click'
[Fehler] MainUnit.pas(26): E2065 Ungenügende Forward- oder External-Deklaration: 'TMainForm.FormClose'
[Fehler] MainUnit.pas(27): E2065 Ungenügende Forward- oder External-Deklaration: 'TMainForm.D7BtnClick'
[Fehler] MainUnit.pas(28): E2065 Ungenügende Forward- oder External-Deklaration: 'TMainForm.D6BtnClick'
[Fehler] MainUnit.pas(29): E2065 Ungenügende Forward- oder External-Deklaration: 'TMainForm.D5BtnClick'
[Fehler] MainUnit.pas(30): E2065 Ungenügende Forward- oder External-Deklaration: 'TMainForm.D4BtnClick'
[Fehler] MainUnit.pas(31): E2065 Ungenügende Forward- oder External-Deklaration: 'TMainForm.D3BtnClick'
[Fehler] MainUnit.pas(32): E2065 Ungenügende Forward- oder External-Deklaration: 'TMainForm.D2BtnClick'
[Fehler] MainUnit.pas(33): E2065 Ungenügende Forward- oder External-Deklaration: 'TMainForm.D1BtnClick'
[Fehler] MainUnit.pas(34): E2065 Ungenügende Forward- oder External-Deklaration: 'TMainForm.D0BtnClick'
[Fataler Fehler] LPTSteuerung.dpr(8): F2063 Verwendete Unit 'MainUnit.pas' kann nicht compiliert werden

Was is dasn jetz? Ich dreh noch durch