função sql genérica

Estou querendo criar uma função genérica para uma unit

que recebe dois parâmetros:

- parâmetro 1 : opt
espera receber ´S´para dar um Open na query ,e ´E´ para dar um ExecSql;


- parâmetro 2 : str_sql:
espera receber uma string de um comando sql.



Segue trecho dó código e os respectivos erros:

{
nessa linha dá o erro
[Error] Un_CadTipoProdutos.pas(26):
Unsatisfied forward or external declaration:
´TfrmCadTipoProdutos.PreencheDBGrid´
}

procedure PreencheDBGrid(opt, str_sql: String);



private
{ Private declarations }
public
{ Public declarations }
end;

var
frmCadTipoProdutos: TfrmCadTipoProdutos;
str_sql, str_select, str_from, str_where, str_order
: String;

implementation

uses DmAuto, Global, Un_CadTipoProdutos2;

{$R *.dfm}


procedure PreencheDBGrid(opt, str_sql: String);
Var Qry : Tquery;
begin
{
Dá erro na p´roxima linha
[Error] Un_CadTipoProdutos.pas(47): Undeclared
identifier: ´self´
}
Qry:=TQuery.Create(self);
Qry.DatabaseName:=´AutoPeças´;
Qry.SQL.Text:= str_sql;
try
if opt <> ´E´ then
Qry.Open
else
Qry.ExecSQL;
frmCadTipoProdutos.ds.DataSet := Qry;
except
on e:exception do
begin
ShowMessage(e.message);
Qry.Free;
end;
end;
end;

procedure
TfrmCadTipoProdutos.ibt_pesquisarClick(Sender:
TObject);
begin
str_select:=´ SELECT *´;
str_from:=´ FROM tb_tipo_produto ´;
if txt_DescTipo.Text <> ´´ then
str_where:=´ WHERE descricao_tipo like
´+#39+txt_DescTipo.text+´¬´39+´´;
str_sql:= str_select+str_from+str_where+str_order;
PreencheDBGrid(´S´,str_sql);
end;



Obrigado pela atenção