Jak pobrać nazwe dynamicznego komponętu po kiliknię

Stworzylem 10 button'ów. Kazdy dostał procedure klik.
Chcial bym żeby po kliknięciu wyswietlana byla wartosc name dla przycisku, który ją wywołał.
Jak to zrobic?
Albo tez po kilknięciu zmieniła by sie pozycja przycisku. np left:=10; *to tez nie
dziła gdyż przemieszcza się forma.
var
B : array[1..10] of TButton;
i : Integer;
begin
for i := 1 to 10 do
begin
B[i] := TButton.Create(Self);
with B[i] do
begin
Parent := Self ;
Top := 30 * i ;
Left := 10;
Width := 75;
Height := 25;
Caption := 'Button' + IntToStr(i);
OnClick := Klik;
end;
end;
end;

procedure TForm1.Klik;
begin
left:=left+10; * to nie dziala
ShowMessage({Nazwa Buttona});
end; hmm...

procedure TForm1.ButtonClick(Sender: TObject);
begin
ShowMessage((Sender as TButton.name));
end;--Delphi 6
Pozdrowienia{hello} ,
Moderator Imperior

TButton(Sender).Left := TButton(Sender).Left + 15;--Pozdrawiam {hello}
Tomasz K.

Dzięki wam :)

Imperior napisał:
procedure TForm1.ButtonClick(Sender: TObject);

begin
ShowMessage((Sender as TButton.name));
end;

sorry bo to było źle, miało byc tak:
procedure TForm1.ButtonClick(Sender: TObject);
begin
ShowMessage((Sender as TButton).name);
end;--Delphi 6
Pozdrowienia{hello} ,
Moderator Imperior