procedure TForm1.Timer1Timer(Sender: TObject);
begin
ejam.Text :=timetostr(time);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
cnim.Items.Add('12094441');

cnim.Items.Add('12094457');

cnim.Items.Add('12094449');

//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 ='12094441'then

begin

enama.Text :='hasan';

ekelas.Text :='12.4H'

end

else

if cnim.Text ='12094457'then

begin

enama.Text :='ferry';

ekelas.Text :='12.4H'

end

else

begin

enama.Text :='eka wahyuni';

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.