saya punya app dengan 30 button gimana caranya bikin 1button lalu di share ke yang lain sehingga tidak memakan banyak code. seperti di java bikin satu button lalu di share (turunan). mohon penjelasanya

bro aku kurang ngerti pertanyaannya, mungkin maksudnya semua button ngacu ke 1 procedure, misal OnClick? klo ya ni samplenya. set semua Properties Tag pada buton, mis Button1(Tag=1), Button2(Tag=2)........,Button30(Tag=30). trs di OnClick Button1

procedure TForm1.Button1Click(Sender: TObject);
var
  a, b, c: Integer;
begin
  with TButton(Sender) do
  begin
    ShowMessage(Name);
    //klo diinginkan setiap button berbeda perintah
    case TButton(Sender).Tag of
      1: a:=2b+c;
      2: a:=Tag b+c;
      .
      .
      .
      30: a:=Top+Width+b-c;
    end
  end
end;

trus Button2...Button30 Events OnClick isi dengan Button1Click. mudah2an ini maksud nyeeeeeee, cause ga terlalu ngerti maksud nyeeeeee, hehehheheheh.

Atau gunakan action... Tidak jelas di sini penggunaan inheritancenya untuk apa. Kalau mau inheritance seperti java (misal membuat turunan TButton), delphi juga bisa, akan tetapi untuk memasukkannya dalam IDE akan sedikit lebih repot.

Bisa belum tentu mudah. Bahkan mudah pun belom tentu gampang. ;)