Function aufruf

[Reini64]

Hallo ich komme hier nicht weiter,
was mache ich falsch.

ich habe eine Function:

Delphi-Quellcode:

function Lzugriff(status:integer): integer ;
var
  m: string;
begin
  m:= copy(F1000.LZugriff.Caption,status,1);
  result:= strtoint(m);
end;

der wert für LZugriff.caption ist : "0011111110001001011101"

ich möchte nun mit der Function den wert aus der 6 stelle ermitteln.

Delphi-Quellcode:

status := 6;
i:= lzugriff (status);

und erhalte nun folgende Fehlermeldung:

[Pascal Fehler] f_1000.pas(147): E2066 Operator oder Semikolon fehlt

Danke fü Eure Hilfe