warum so sehr verschachtelt?
Delphi-Quellcode:
if ... then begin
end else if ... then begin
...
end else begin
end;
kommt aber von der Funktion auf ein CASE hinaus
[edit]
jetzt hab ich Zoot's grad gesehn
aber wenn mehr als ein Befehl pro IF-Ausgeführt werden sollen, muß man das BEGIN-END natürlich drum rummachen.