[Aristarh Dark]

Ну если реально "имя таблицы", то:

Код:

procedure SomeProc(ATableName:string)
begin
...
end;

а если объект-таблица, то:

Код:

procedure SomeProc(ADOTable:TADOTable)
begin
...
end;