Operator oder Semikolon fehlt

[mkpre]

In der Zeile  datum := copy(zeile,1,10); soll ein Operator oder Semikolon fehlen. Ich habe doch aber alles drin, oder doch nicht...
Bitte helft mir.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
zeile : string;
datei : TextFile;
datum_neu : string;
zeit_neu : string;
event_neu:string;
zeile_neu:string;
datum: string;
zeit: string;
vorhanden:boolean;

begin

datum_neu:= DateToStr(DateTimePicker1.Date);
zeit_neu:=EingabeZeit.Text;
event_neu:=EingabeEvent.Text;
zeile_neu:=datum_neu+';'+zeit_neu+';'+event_neu;


 AssignFile(datei,'termine.csv');     //Dateivariable verknüpfen
 reset(datei);                        //Datei öffnen

 //Test, ob Datum schon in der Datei steht
 vorhanden:=false;
 WHILE not EOF(datei) DO        //Wiederhole solange das Dateiende nicht erreicht
  BEGIN
   readln (datei,zeile)               //zeile wird aus der Datei gelesen
   datum := copy(zeile,1,10);        //ab 1. Zeichen bis 10. Zeichen --> dort steht das Datum
   zeit:= copy(zeile,12,5);             //ab 12. Zeichen 5 Zeichen kopieren --> Uhrzeit

   //Vergleich
   IF (datum_neu = datum) AND (zeit_neu=zeit) THEN vorhanden:=true;
    
  END;
  CloseFile(datei);
  //Wenn noch nicht vorhanden, dann neu in die Datei schreiben, sonst Hinweis ausgeben

  IF vorhanden THEN ShowMessage('Der Termin ist schon belegt')
                     ELSE BEGIN 
                                   append(datei); //Datei öffnen zum anhängenden schreiben
                                   writeln(datei,zeile_neu); 
                                   closefile(datei);
                           END;                  


 end;