OVER CREDIT

OVER CREDIT 2 UNIT RUMAH 

TYPE 60 

DENGAN LUAS  6M X 10 M

LOKASI PERUMAHAN KEMUNING PERMAI TIGA RAKSA

BLOK C NO 19-21

YANG BERMINAT HUBUNGI :

JOICE  

HP : 0877 7850 5018

KANTOR : 021- 53127778 

teknologi yahuud

Yang mau beli segera hubungi 08581010xxxx

cakcakcerik tugas delphi

procedure TForm1.Timer1Timer(Sender: TObject);

begin

ejam.Text :=timetostr(time);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

cnim.Items.Add('12094466');

cnim.Items.Add('12097788');

cnim.Items.Add('12090000');

//dataseparator:='-';u pemisah antara tgl.bln &tahun

ShortDateFormat :='dd-mmmm-yyyy';

etgl.Text :=datetostr(date);

end;

procedure TForm1.cnimClick(Sender: TObject);

begin

if cnim.Text ='12094466'then

begin

enama.Text :='DENNY YOHANA';

ekelas.Text :='12.4H'

end

else

if cnim.Text ='12097788'then

begin

enama.Text :='SUSILO BAMBANG YODOYONO';

ekelas.Text :='12.4H'

end

else

begin

enama.Text :='FARUQ';

ekelas.Text :='12.4h'

end

end;

procedure TForm1.rlakiClick(Sender: TObject);

begin

rlaki.Enabled :=True;

rperem.Enabled :=false

end;

procedure TForm1.rperemClick(Sender: TObject);

begin

rperem.Enabled :=true;

rlaki.Enabled :=false

end;

end.

TOP 10 ENTERTAINING MOVIES OF ALL TIME!