Quelltexte hinterlegen

[glkgereon]

also so in etwa:

Delphi-Quellcode:

procedure if_abfrage(shift, key:typ);
begin
  if shift=[] then begin
    case key of
      27: Close;
    end;
  end;
end;

ich wusst jetzt nit, was shift und key für typen sind...