Как определить, какая кнопка нажата?

[Paul Hindenburg]

как правильно нужно написать в процедуре ClickRun, чтобы различать какая кнопканажата?

procedure TForm1.ClickRun(Sender: TObject);
begin
//showmessage((Sender as knopks.Name));
// вот тут нужно определить какая кнопка нажата
end;

procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;

k:integer;

begin
k := 0;
ADOTable1.First;
SetLength(arr,ADOTable1.RecordCount );
for I := 0 to ADOTable1.RecordCount-1 do
begin
knopks := TSpeedButton.Create(Form1);
with knopks do
begin
knopks.Parent := Form1.ScrollBox1;
knopks.Left := 5;
knopks.Width := 105;
knopks.Height := 41;
knopks.Top := 5+k;
knopks.Caption := ADOTable1name.AsString;
knopks.OnClick := ClickRun;
knopks.tag := i;
arr[i] := ADOTable1path.AsString;
knopks.Name := 'Buttons'+inttostr(i);
end;
k := k + +knopks.Height;
ADOTable1.Next;
end;
end;

[mihali4]

knopks := TSpeedButton.Create(Form1);

Следовательно:

procedure TForm1.ClickRun(Sender: TObject);
begin
ShowMessage('Нажата кнопка '+(Sender as TSpeedButton).Name);
end;