Say Hai Aplikasi Delphi

Buatlah Tampilan Seperti Di Bawah ini :

Dengan 1 Label 1 editBox dan 1 Button

Klik 2x Formnya dan tulis Script berikut ;




procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text:='';
button1.Caption:='Munculkan Pesan';
end;


Kemudian klik 2x pada buttonnya dan tulis script berikut :

procedure TForm1.Button1Click(Sender: TObject);
begin
    showmessage(edit1.Text);
end;

dan Setelah itu run dan ni hasilnya