goto-befehl in delphi?

[Go2EITS]

@MKinzler


Ne, Spass beiseite.
Also, nun muss ich es wohl doch mit GOTO lösen:

Delphi-Quellcode:

Result:=False;
Daten:='';
repeat 
readln(f, Daten);
Daten:=Trim(daten); 
if Daten:=chr(13)+Chr(10) then goto ENDE; // LF 
if Daten:='' then goto ENDE;              //Leerraum
if daten[1]:='/' then goto ENDE;          //Kommentarzeile
Daten[1]:='#'then goto ENDE;              //Kommentarzeile
pos('C:\',daten) >0 then goto ENDE;       //Rootverzeichnis
//Und hier stehen noch weitere Codes zum Verarbeiten des DATEN Strings 
showmessage(Daten);                       //Zum debuggen
If pos('DEBUG',DATEN) >0 then             //Die erste Verarbeitung...
   begin
   RESULT:=TRUE; //Wir haben ja etwas gültiges gefunden...   
   //CODE hier 
   end;
// Hier stehen nochmals einige IF mit entsprechender Verarbeitung 

ENDE:  
until EOF(f);

Muss ich nochmal die Grundlagen strukturierter Datenverarbeitung lesen?
Verbessere bitte meinen Code. Wie kann ich es eleganter machen?
Ich lerne gerne dazu, bzw. verbessere meinen Programmierstil (Ernst gemeint!)
Und statt IF's CASE zu nehmen dürfte das "GOTO-Problem" auch nicht lösen.