OOP Problem: kein Zugriff auf Prozeduren

[maximus Caesar]

Hallo!
Ich habe ein OOP Problem!

Mein Code sieht so aus:

Delphi-Quellcode:

unit objekte;                        

interface

type
 TObjekt1 = class
  FTyp:String;
  FUsed:Boolean;
  FItems:Array [1..100] of String;
  FName:String;
  FAktion:String;
  FBild:String;
  FX:Integer;
  FY:Integer;
  procedure WriteTyp(Variable:String);
  procedure WriteUsed(Variable:Boolean);
  procedure WriteItem(Item:String; Position:Integer);
  procedure WriteName(Name:String);
  procedure WriteAktion(Aktion:String);
  procedure WriteBild(Bild:String);
  procedure WriteX(x:integer);
  procedure WriteY(y:Integer);
  function GetTyp:String;
  function GetUsed:Boolean;
  function GetItem(position:integer):String;
  function GetName:String;
  function GetAktion:String;
  function GetBild:String;
  function GetX:Integer;
  function GetY:Integer;
  property Typ : String Read FTyp Write FTyp;
 end;


implementation


// Prozeduren und Funktionen der Klasse "Objekt1"

 procedure TObjekt1.WriteTyp(Variable:String);
 begin
  FTyp:=Variable;
 end;

 procedure TObjekt1.WriteUsed(Variable:Boolean);
 begin
  FUsed:=Variable;
 end;

 procedure TObjekt1.WriteItem(Item:String; Position:Integer);
 begin
  FItems[Position]:=Item;
 end;

 procedure TObjekt1.WriteName(Name:String);
 begin
  FName:=Name;
 end;

 procedure TObjekt1.WriteAktion(Aktion:String);
 begin
  FAktion:=Aktion;
 end;

 procedure TOBjekt1.WriteBild(Bild:String);
 begin
  FBild:=Bild;
 end;

 procedure TObjekt1.WriteX(x:Integer);
 begin
  FX:=x;
 end;

 procedure TObjekt1.WriteY(y:Integer);
 begin
  FY:=y;
 end;

 function TObjekt1.GetTyp:String;
 begin
  result:=FTyp;
 end;

 function TObjekt1.GetUsed:Boolean;
 begin
  result:=FUsed;
 end;

 function TOBjekt1.GetItem(position:Integer):String;
 begin
  result:= FItems[position];
 end;

 function TObjekt1.GetName:String;
 begin
  result:=FName;
 end;

 function TObjekt1.GetAktion:String;
 begin
  result:=FAktion;
 end;

 function TObjekt1.GetBild:String;
 begin
  result:=FBild;
 end;

 function TObjekt1.GetX:Integer;
 begin
  result:=FX;
 end;
 
 function TObjekt1.GetY:Integer;
 begin
  result:=FY;
 end;






end.

Ich kann nicht z.B von einem Button aus nicht auf die Prozeduren zugreifen.
Wie kann ich dafür sorgen, dass dies möglich wird?

PS: auf den Property "Typ" kann ich auch nicht zugreifen!