Получение вызывателя процедуры

[Juggernaut]

Здравствуйте. У меня такая проблема: у меня есть массив из ста компонентов TStaticText, которые динамически создаются таблицей 10х10. Мне нужно, что бы по нажатию на один из компонентов, он менял свой заголовок на какой нибудь другой (например 0 на 1). Когда я описал объявление массива, я обработчику OnClick присвоил процедуру SetCell, которая должна менять заголовок. Но вот проблема, я не могу получить из процедуры SetCell объект, который ее вызвал. Прикрепляю код если кому не понятно.

procedure TForm18.SetCell(Sender: TObject);
begin
// здесь должен меняться заголовок выбранонго StaticText
// Self не работает, если просто пытаться менять Caption, меняется заголовок формы
end;

procedure TForm18.FormActivate(Sender: TObject);
  var i,j,c:integer;
begin
for j:=1 to 10 do
begin
  for i:=1 to 10 do
  begin
    st[i,j]:=TStaticText.Create(self);
    st[i,j].AutoSize:=false;
    st[i,j].Width:=25;
    st[i,j].Height:=25;
    st[i,j].Name:='st'+IntToStr(i)+'x'+IntToStr(j);
    st[i,j].BorderStyle:=sbsSingle;
    st[i,j].Caption:='0';
    st[i,j].Alignment:=taCenter;
    st[i,j].Top:=j*25;
    st[i,j].Left:=i*25;
    st[i,j].Tag:=c;
    st[i,j].Parent:=Form18;
    st[i,j].OnClick:=SetCell;
    inc(c);
  end;
end;
end;

Я конечно могу объявить 100 StaticText и 100 обработчиков, но это будет очень долго....

[Selestis]

Попробуй
TStaticText(Sender).Caption:='klmn' ;

[Juggernaut]

Ой, спасибо кончено, но я это сам только что нашел и сработало. Все равно спасибо!