Odczytanie nazwy buttona aktywującego funkcję

Witam.
Mam pewien problem i nie wiem jak się o niego zabrać .
Powiedzmy że mamy zestaw 10 button-ów. I tak do każdego jest przypisana ta sama funkcja powiedzmy

procedure TForm1.Button1Click(Sender: TObject);
begin
sleep(5)

end;

I tu się zaczyna problem . Powiedzmy że chcę w tej samej funkcji odczytać nazwę butona który ją aktywował ( np. po wciśnięciu button2 i przeskoczeniu do tej funkcji ma ona w wyniku wrzucić nazwę 'button2' do string s) . Czy jest możliwość zrobienia czegoś takiego a jeśli tak to w jaki sposób .
Pozdrawiam .

A wiesz, czym jest argument sender w owej metodzie?

Dokładnie, Sender jest tym czego potrzebuje pytający.

  Caption := (Sender as TButton).Name;

Ok już wszystko jasne . Tak myślałem że właśnie ta zmienna zapisuje adresata tylko nie wiedziałem jak z niej to wykrztusić :) . Dziękuje i pozdrawiam