Problemi sa prostom klasom

[ BIG FOOT @ 01.07.2005. 13:14 ] @

Imam jednu klasu za rad sa celim brojevima.
Ne znam lepo da definisem
property Broj: Integer read Citaj write Promeni;
gde bi Citaj bila int funkcija koja treba da vrati vrednost Broja, a Promeni procedura koja bi ga postavila na odredjenu vrednost.
Gde je ovde greska:
TBroj = class
public
property Broj: Integer read Citaj write Promeni;
function Citaj:integer;
procedure Promeni(x:integer);
constructor Create;
end;

I jos nesto:
Kako bi izgledao kostruktor (bilo kakav)?

[ Passwd @ 01.07.2005. 13:18 ] @

Code:

constructor TBroj.Create(AOwner: TComponent);
begin
  inherited;

end;

destructor TBroj.Destroy;
begin
  nesto.Free;
  inherited;

end;

[ Srki_82 @ 01.07.2005. 15:40 ] @

Code:
TBroj = class
private
  FBroj: Integer;
  function GetBroj: Integer;
  procedure SetBroj(const Value: Integer);
public
  constructor Create;
  property Broj: Integer read GetBroj write SetBroj;
end;

Ovo radi kod mene.