type
    Ptr_CPC_MSG = ^CPC_MSG;

var
  MainForm : TMAINForm;
  professional : byte; // Code für Freischaltung/Berechtigung (1-4)
  projektOffen : Boolean; // true, falls gerade ein Projekt geöffnet ist

    MainIniPath : String;
    MyIni : TIniFile;
    MyProjectIni : TIniFile;
    zahl : Integer;
    FileList : THistoryList;
    IniPfad : String;
    PPfad : String;
    SpeicherPfad : String;
    CanHandle : Integer;
    Time : Boolean;
    MyMsgPtr : CPC_CAN_MSG;
    MsgHandlePtr : Ptr_CPC_MSG;
    Adress : Word;
    AdressHelp : String;
    Fehler : Integer;
    KnotenNr : Integer;
    Format : String;
    CanAktiv : Boolean;

     PASSWORT : array [0..4] of string;
     //Passwörter für das Freischalten auf höhere Berechtigungen

  //procedure scaleform ( TForm; w,h : boolean);

//implementation

{$R *.DFM}

uses About, ModDelete, EditModul, ParameterAll, newModul, warte, ProtUnit,
  Folder_Unit, zusammenfassung, Passw, Freischalt, QuellView;
// Fehler Deklaration erwartet, aber Uses gefuden


{--------------------- erzeugen des Formulares -------------------------------}
{-----------------------------------------------------------------------------}

    PROCEDURE MainMenue1(Sender: TObject); // E2004 Bezeichner redefiniert
    begin
      end;
    end;
{=============================================================================
CopyFile procedure found in the FMXUTILS.PAS file in Delphi\Demos\Doc\Filmanex
This is an example of copying a file using a buffer.
=============================================================================}
procedure CopyFile(const FileName, DestName: TFileName);
var
  CopyBuffer: Pointer; { buffer for copying }
  TimeStamp, BytesCopied: Longint;
  Source, Dest: Integer; { handles }
  Destination: TFileName; { holder for expanded destination name }
const
  ChunkSize: Longint = 8192; { copy in 8K chunks }
begin
  Destination := ExpandFileName(DestName); { expand the destination path }
  if HasAttr(Destination, faDirectory) then { if destination is a directory... }
    Destination := Destination + '\' + ExtractFileName(FileName); { ...clone file name }
  TimeStamp := FileAge(FileName); { get source's time stamp }
  GetMem(CopyBuffer, ChunkSize); { allocate the buffer }
  try
    Source := FileOpen(FileName, fmShareDenyWrite); { open source file }
    if Source < 0 then raise EFOpenError.Create(FmtLoadStr(SFOpenError, [FileName]));
    try // undeklarierter Bezeichner SFOpenError
      Dest := FileCreate(Destination); { create output file; overwrite existing }
      if Dest < 0 then raise EFCreateError.Create(FmtLoadStr(SFCreateError, [Destination]));
      try // undeklarierter Bezeichner SFCreateError
        repeat
          BytesCopied := FileRead(Source, CopyBuffer^, ChunkSize); { read chunk }
          if BytesCopied > 0 then { if we read anything... }
            FileWrite(Dest, CopyBuffer^, BytesCopied); { ...write chunk }
        until BytesCopied < ChunkSize; { until we run out of chunks }
      finally
        FileClose(Dest); { close the destination file }
      end;
    finally
      FileClose(Source); { close the source file }
    end;
  finally
    FreeMem(CopyBuffer, ChunkSize); { free the buffer }
  end;
end;

PROCEDURE TMainForm.FormCreate(Sender: TObject); // E2009 ; erwartet aber . gefunden
var pw : file;
    i, z : integer;
    laenge : byte;
BEGIN
     (* Variable mit Pfad der Anwendung initialisieren *)
     MainIniPath := ExtractFilePath(ParamStr(0));
     (* Variable mit der AnwendungsDatei initialisieren *)
     IniPfad := MainForm.MainIniPath + 'MDI-Haupt.ini';
     (* Instanz einer IniDatei erzeugen *)
     MyIni := TIniFile.Create (IniPfad);
     (* Hilfshinweise aktivieren *)
     Application.OnHint := ShowHint;
     (* Instanz einer HistList erzeugen *)
     FileList := THistoryList.Create ;
     (* HistList aus IniDatei lesen *)
     FileList.LoadFromIni (IniPfad,'Files'); // Operator oder Semikolon fehlt
     (* HistList an Menü anhängen *)
     FileList.MenuItem := Datei; // Operator oder Semikolon fehlt