unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
cb1: TComboBox;
Label2: TLabel;
Edit1: TEdit;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Memo1: TMemo;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Button2: TButton;
Label6: TLabel;
Edit4: TEdit;
Timer1: TTimer;
Label7: TLabel;
Edit5: TEdit;
procedure FormCreate(Sender: TObject);
procedure cb1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
cb1.Items.Add('12094408');
cb1.Items.Add('12099999');
end;

procedure TForm1.cb1Click(Sender: TObject);
begin
if cb1.Text='12094408' then
begin
edit1.Text:='maryono arman';
edit2.Text:='4i';
edit3.Text:='MI';
memo1.Text:='pondok alam permai rt04 rw08 kel.alam jaya kec.jatiuwung tangerang';
end
else
if cb1.Text='12099999' then
begin
edit1.Text:='norman';
edit2.Text:='4i';
edit3.Text:='MI';
memo1.Text:='bekasi';
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.clear;
edit2.clear;
edit3.clear;
memo1.clear;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if(application.MessageBox('anda yakin ingin keluar','informasi',mb_yesno+mb_iconwarning)=idyes)then
close
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
edit4.Text:=datetostr(date);
edit5.Text:=timetostr(time);
end;

end.