Mysteriöser Compilerfehler

[DualCoreCpu]

Ich habe diesen Quellcode:

Delphi-Quellcode:

unit UDBmedia;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Mask, Vcl.DBCtrls,
  IBX.IBSQL, IBX.IBDatabase, Data.DB, IBX.IBCustomDataSet, IBX.IBServices,
  IBX.IBConnectionBroker, IBX.IBDatabaseInfo;

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    IBDatabase1: TIBDatabase;
    IBDataSet1: TIBDataSet;
    IBTransaction1: TIBTransaction;
    IBSQL1: TIBSQL;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit8: TDBEdit;
    IBDatabaseInfo1: TIBDatabaseInfo;
    IBConnectionBroker1: TIBConnectionBroker;
    IBConfigService1: TIBConfigService;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  IBDatabase1.DatabaseName := ChangeFileExt(Application.ExeName, '.fdb');
  IBDatabase1.Params.Add('USER ''SYSDBA''');
  IBDatabase1.Params.Add('PASSWORD ''masterkey''');
  IBDatabase1.Params.Add('PAGE_SIZE 4096');
  IBDatabase1.Params.Add('DEFAULT CHARACTER SET WIN1250');
  IBDatabase1.CreateDatabase;

 *if FileExists(IBDataSet1.Database.DatabaseName) then
****IBDataSet1.Open
**else
  begin
****with IBDataSet1.FieldDefs do
    begin
******Clear;
******Add('media', ftString, 3);
******Add('author', ftString, 30);
******Add('title', ftString, 40);
****
****  IBDataSet1.CreateDataSet;
    end;  { von with }
**

  end; { von else }

  IBDataSet1.LoadFromFile(IBDatabase1.DatabaseName);

end; { von FormCreate }

end.

Der Compiler spuckt diese Fehlermeldungen aus:

dcc32 Befehlszeile für "dbmedia.dpr"
c:\program files (x86)\embarcadero\studio\20.0\bin\dcc32.exe -$O- -$W+ --no-config -M -Q -TX.exe -AGenerics.Collections=System.Generics.Collections;
Generics.Defaults=System.Generics.Defaults;WinType s=Winapi.Windows;WinProcs=Winapi.Windows;DbiTypes= BDE;DbiProcs=BDE;DbiErrs=BDE -DDEBUG
-E.\Win32\Debug -I"c:\program files (x86)\embarcadero\studio\20.0\lib\Win32\debug\DE"; "c:\program files
(x86)\embarcadero\studio\20.0\lib\Win32\debug";"c: \program files (x86)\embarcadero\studio\20.0\lib\Win32\release\DE ";"c:\program files
(x86)\embarcadero\studio\20.0\lib\Win32\release";C :\Users\Konta\Documents\Embarcadero\Studio\20.0\Im ports;"c:\program files
(x86)\embarcadero\studio\20.0\Imports";C:\Users\Pu blic\Documents\Embarcadero\Studio\20.0\Dcp;"c:\pro gram files (x86)\embarcadero\studio\20.0\include"
-LEC:\Users\Public\Documents\Embarcadero\Studio\20. 0\Bpl -LNC:\Users\Public\Documents\Embarcadero\Studio\20. 0\Dcp -NU.\Win32\Debug -NSWinapi;
System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win; Xml.Win;Bde;System;Xml;Data;Datasnap;Web;Soap;Vcl; Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;
-O"c:\program files (x86)\embarcadero\studio\20.0\lib\Win32\release";C :\Users\Konta\Documents\Embarcadero\Studio\20.0\Im ports;"c:\program files
(x86)\embarcadero\studio\20.0\Imports";C:\Users\Pu blic\Documents\Embarcadero\Studio\20.0\Dcp;"c:\pro gram files (x86)\embarcadero\studio\20.0\include"
-R"c:\program files (x86)\embarcadero\studio\20.0\lib\Win32\release\DE ";"c:\program files (x86)\embarcadero\studio\20.0\lib\Win32\release";
C:\Users\Konta\Documents\Embarcadero\Studio\20.0\I mports;"c:\program files (x86)\embarcadero\studio\20.0\Imports";
C:\Users\Public\Documents\Embarcadero\Studio\20.0\ Dcp;"c:\program files (x86)\embarcadero\studio\20.0\include" -U"c:\program files
(x86)\embarcadero\studio\20.0\lib\Win32\debug\DE"; "c:\program files (x86)\embarcadero\studio\20.0\lib\Win32\debug";"c: \program files
(x86)\embarcadero\studio\20.0\lib\Win32\release\DE ";"c:\program files (x86)\embarcadero\studio\20.0\lib\Win32\release";
C:\Users\Konta\Documents\Embarcadero\Studio\20.0\I mports;"c:\program files (x86)\embarcadero\studio\20.0\Imports";
C:\Users\Public\Documents\Embarcadero\Studio\20.0\ Dcp;"c:\program files (x86)\embarcadero\studio\20.0\include" -V -VN
-NBC:\Users\Public\Documents\Embarcadero\Studio\20. 0\Dcp -NHC:\Users\Public\Documents\Embarcadero\Studio\20. 0\hpp\Win32 -NO.\Win32\Debug dbmedia.dpr

[dcc32 Fehler] UDBmedia.pas(51): E2003 Undeklarierter Bezeichner: '*if'
[dcc32 Fehler] UDBmedia.pas(51): E2029 'END' erwartet, aber 'THEN' gefunden
[dcc32 Fehler] UDBmedia.pas(54): E2029 ';' erwartet, aber 'BEGIN' gefunden
[dcc32 Fehler] UDBmedia.pas(55): E2003 Undeklarierter Bezeichner: '****with'
[dcc32 Fehler] UDBmedia.pas(55): E2066 Operator oder Semikolon fehlt
[dcc32 Fehler] UDBmedia.pas(55): E2066 Operator oder Semikolon fehlt
[dcc32 Fehler] UDBmedia.pas(56): E2029 '.' erwartet, aber 'BEGIN' gefunden
[dcc32 Fehler] UDBmedia.pas(57): E2003 Undeklarierter Bezeichner: '******Clear'
[dcc32 Fehler] UDBmedia.pas(58): E2003 Undeklarierter Bezeichner: '******Add'
[dcc32 Fehler] UDBmedia.pas(61): E2003 Undeklarierter Bezeichner: '****'
[dcc32 Fehler] UDBmedia.pas(62): E2066 Operator oder Semikolon fehlt
[dcc32 Fehler] UDBmedia.pas(62): E2066 Operator oder Semikolon fehlt
[dcc32 Warnung] UDBmedia.pas(63): W1011 Text hinter dem abschließenden 'END.' - wird vom Compiler ignoriert
[dcc32 Fataler Fehler] dbmedia.dpr(5): F2063 Verwendete Unit 'UDBmedia.pas' kann nicht compiliert werden
Misslungen
Verstrichene Zeit: 00:00:01.3


Was läuft hier falsch?