Mehrere Buttons, selbe Funktion mit Arrays

[ickehausen]

Ich habe mehrere Buttons, bei denen die selbe Funktion dahinter steckt, nur das Arrays befüllt werden sollen. Ich könnte jetzt jedem Button eine eigene Procedure zuordnen, ist aber nicht die feine englische Art. Gibt es da nicht eine elegantere Lösung?

Delphi-Quellcode:

var
  Form2: TForm2;
  ergebnis: Array[1..16] of String;
  farbe: Array[1..16] of TColor;
implementation

{$R *.dfm}


procedure TForm2.Button1Click(Sender: TObject);
begin
  if ColorDialog1.Execute then
  begin
    farbe[1] := ColorDialog1.Color;
    ergebnis[1] :=   IntToHex(GetRValue(farbe[1]),2)  // Rot-Wert (0..255)
                                              // in Hex umwandeln
                                              // mit min. 2 Zeichen
              + IntToHex(GetGValue(farbe[1]),2)  // usw...
              + IntToHex(GetBValue(farbe[1]),2);
    Panel1.Color := ColorDialog1.Color;
  end;
end;