Function aufruf

[Reini64]

Danke NormanNG,
habe die function umbenannt

Delphi-Quellcode:

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

danach geht es.
also nochmals Danke !