[Aristarh Dark]

Если использовать именно в таком контексте, то:

Код:

type // объявляю
  TForm8 = class(TForm)
    // .....
    procedure af8(table: TDataSet); // ну явно не стринг, TADOTable нет
var
  Form8: TForm8;
 
implementation
{$R *.dfm}
 
uses Unit1, Unit_DM;
 
procedure af8(table: TDataSet); // описываю
begin
   if table.fieldbyname('zayavka').asstring = 'Заявка' then
   btn1.visible:=true;
end;
 
procedure TForm8.Button1Click(Sender: TObject); // вызываю
begin
  af8(dm.table_name);
end;