Eine eigene Funktion erstellen

[Der J.J]

Moin Moin,
Versuche gerade meine "ersten Schritte".
Wir arbeiten bei uns an der Schule mit dem Borland Builder6.
Nehmen wir mal an ich habe in Form1, 10 Button und 1 Panel1 erstellt. Alle Button sollen die selbe Aufgabe haben:
Einen Text in Panel1 schreiben,alle Button unsichtbar machen, nach 2 sek alle Button wieder erscheinen lassen.
Dies würde für jeden Button in etwa so aussehen:

...
Panel1->Caption = ("Text");
But_1->Visible=False;
But_2->Visible=False;
But_3->Visible=False;
But_4->Visible=False;
...
sleep 2000;
But_1->Visible=True;
But_2->Visible=True;
...
But_10->Visible=True;
}

Wie bekomme ich es jetz hin, das ich mir eine Funktion erstelle,
die mir den ganzen Text für JEDEN Button erspart???
Dies ist doch bestimmt möglich oder

[Christian Marquardt]

Das OnClick-Ereignis der Buttons auf eine Funktion deuten lassen und dort SENDER auswerten.

http://www.marquardtnet.info/cecke/q...1/1_index.html

[Der J.J]

finde mich auf der Seite leidert nicht zurecht.
Bringt mich also leider auch nicht weiter

[Christian Marquardt]

http://www.marquardtnet.info/cecke/q...quicky_17.html