Variablen in Funktion verwenden?!

[Svenkan]

Hallo, ich benötige einige Variablen ausm OnCreate in einer meiner Funktionen.

Delphi-Quellcode:

private
  { private declarations }
ArtEntfall,ArtAufgabe,ArtAufsicht,ArtSondereinsatz,ArtSonstiges,ArtSStudium,ArtStatt,ArtUBesuch,ArtVerlegt,ArtVertretung:String;

Delphi-Quellcode:

function VertArt(const queryname: TQuery; wer,fuer: String): String;
begin
 if (pos('fällt aus: siehe', queryname.FieldByName('BEMER_SCH').AsString)<>0) then
  Result:=ArtVerlegt;
 else if (Like(queryname.FieldByName('BEMER_SCH').AsString, '*?ufsicht*')) then
  Result:=ArtAufsicht;
 else if NOT (pos('fällt aus', AnsiLowerCase(queryname.FieldByName('BEMER_SCH').AsString))<>0) AND (wer='') then
  Result:=ArtSStudium;
 else if (Like(queryname.FieldByName('BEMER_SCH').AsString, '*?ufgabe*') OR Like(queryname.FieldByName('BEMER_SCH').AsString, '*?tillarbeit*') OR Like(queryname.FieldByName('BEMER_SCH').AsString, '*?eschäftigung*')) then
  Result:=ArtAufgabe;
 else if (Like(queryname.FieldByName('BEMER_SCH').AsString, '?ällt aus')) OR (Like(queryname.FieldByName('BEMER_SCH').AsString, 'Diese Stunde * fällt aus!')) then
  Result:=ArtEntfall;
 else if (pos('Statt', queryname.FieldByName('BEMER_SCH').AsString)<>0) AND (pos('Std.', queryname.FieldByName('BEMER_SCH').AsString)<>0) then
  Result:=ArtStatt;
 else if (fuer='') AND (queryname.FieldByName('WERT').AsString='P') AND (queryname.FieldByName('ANZAHL').AsString='1') then
  Result:=ArtSondereinsatz;
 else if NOT (pos('Statt', queryname.FieldByName('BEMER_SCH').AsString)<>0) AND NOT (pos('Std.', queryname.FieldByName('BEMER_SCH').AsString)<>0) AND NOT (fuer='') AND NOT (wer='') then
  Result:=ArtVertretung;
 else if (Like(queryname.FieldByName('BEMER_SCH').AsString, '*Unterrichtsbesuch*')) then
  Result:=ArtUBesuch;
 else
  Result:=ArtSonstiges;
end;

Allerdings ergibt sich hier nur der Fehler 'Unbekannter Bezeichner'.
Hat jemand einen Rat für mich?