Hilfe ( Lies X Position)

[xman236]

Zum Beispiel, das was so steht :

Delphi-Quellcode:

procedure TBogen.SetzePosition (XPos, YPos: Integer);
begin
  Loeschen;
  zX := XPos; zY := YPos;
  Zeichnen;
end;

habe ich so benutzt

Delphi-Quellcode:

procedure TFrmMain.Button4Click(Sender: TObject);
begin
     test.Loeschen;
     test.SetzePosition (200, 200);
     test.Zeichnen;
end;

test ist in dem Fall TBogen.

Wie kann ich jetzt das benutzen?

Delphi-Quellcode:

function TBogen.LiesXPosition: Integer;
begin
  LiesXPosition := zX   ;
end;