2 array´s lesen

[davtix]

heut hab ich irgendwie n gedanken knicks...
könnt mir jemand helfen?? ich kann diese function nicht abrufen.. wo liegt mein fehler?

Delphi-Quellcode:

f:integer

f := saveWEGpos(0,1).xposR

Delphi-Quellcode:

type Txwegslide = array [1..20] of integer;
     Tywegslide = array [1..20] of integer;
type  Tposxy= record xposR, yposR: integer; end;
var x:Txwegslide;  y:Tywegslide;  i:integer;
function saveWEGpos (RW,N :integer) : TposXY; // 1=schreiben 0=lesen
begin

if 1 =  RW then
  begin     // alle plätze belegen
      for i:= 1 to 20 do
       begin
          x[i]:= setWEGpos.xWEG; y[i]:=setWEGpos.yWEG;
       end;
  end;

if 0 =  RW then begin
   result.xposR:= x[N];
   result.yposR:= y[N];

end;

end;