[mode mezum="on"]
:twisted: buat programmer cewek ngedate yuuuk :twisted:
[mode mezum="off"]

Type
  TStatus (stSingle,stNikah,stJanda,stDuda);
  TDraculasexy = Class (TButton);
  private
    FBirthDay : TDate;
    FStatus : TStatus;
    FLocation : String;
  public
    constructor create(AOwner:Tcomponent);override;
  protected
    Procedure setBirthDay(Value : TDate);
    Procedure setStatus(Value : TStatus);
    Procedure setLocation (Value : string);
  Published
    property Birthday : TDate read FBirthDay write setBirthDay;
    property Status : TStatus read Fstatus write setStatus;
    property Location : String read FLocation write setLocation;
  end;
...
implementation
...
procedure Create(AOwner : TComponent);
begin
  inherited Create(AOwner);
  Caption := 'dr4cul453xy'; 
  height   := 169;
  FStatus := stSingle;
  FBirthDay := '26/06/1987';
  FLocation := 'Denpasar';
end;
....
End.