Button zur Laufzeit erzeugen

[Mooshead]

Danke für euren schnellen Antworten auch noch zur späten Stunde

ich habe da aber jetzt noch eine Frage und ich hoffe ihr könnt mir schnell weiter helfen:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure Klick(Sender : TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
   { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
  for i:=1 to 10 do
    begin
      TButton.Create(Self).Name :='Button'+IntToStr(i);
      with TButton(FindComponent('Button'+IntToStr(i))) do
      begin
        Left    := 10;
        Top     := i * 30;
        caption := IntToStr(i);
        Parent  := self;
        OnClick := Klick;
      end;
    end;
end;


procedure TForm1.Klick(Sender : TObject);
begin
   label1.Caption:='???';  //Im Label sollte nun der Name des Buttons der 
end;                       //betätigt wurde bzw. dessen Beschriftung (Caption) stehen 


end.

Meine Fragestelung sollte sich aus dem Quelltext ergeben.