Buton aktif/pasif

[canset]

var
i : Integer;
h : Integer;
begin
for i:=0 to Pred (ComponentCount) do
if (Components is TButton) then
if TButton(Components).Enabled= false then
for h := 1 to 50 do // 50 adet buton olacak
if button1.Caption =' ' then //aslında buton 1 değil de ilk bulduğu buton olacak
button1.Enabled:= true; //aynı buton
button1.Caption:='karpuz' //aynı buton

end;


***

Formda 50 adet buton düşündüğüm için haliyle 50 tane içiçe if komutu yazılamayacağına göre bunun pratik bir çözümü olması gerektiğini düşünüyorum...1'den 3'e kadar butonlara numara verdiğim zaman oldu gibi; İşte ilk önce enabled=false olanların bulunması, sonra 1'den 3'e kadar boş caption'lı butaonların bulunması ve 1.butonun caption'ına karpuz yazılması gibi...

Acemiliğim nedeni ile bileşenlerin ve kullanılan diğer komutların isimlerini tam olarak söyleyemeyebilirim ama zannedersem meramımı anlatabildim..

Acaba 50 adet buton için if yerine nasıl bir komut kullanmalıyım? Yardımcı olabilecek arkadaşlar sade bir dille anlatabilirlerse sevinirim...