Passar DataSource como parametro

[Faccruz 0]

Boa noite.Como faço pra passar um DataSource como parametro? Tentei dessa forma

procedure FechaForm (aDs: TDataSource);

mas dá o seguinte erro

Unsatisfied Forward or External Declaration : FechaForm

O que eu estou querendo fazer é o seguinte: Quero criar uma UNIT com funções, e uma dessas funções é a verificação se o registro está em Edit/Insert. Se eu colocar dessa formaCódigo:

if DataSource.State in [dsEdit, dsInsert] then  Mensagem Avisandoelse  close;

em todos os forms, no botão fechar, funciona, mas gostaria de centralizar a maioria dessas funções na unit.Uso D7, ClientDataSet, Firebird. Ah outra coisa... nos meus forms existem apenas o DataSource, ligado no ClientDataSet no DataModule.

[Hugo Slepicka 0]

I aew Faccruz, beleza???então cara... esse erro

Unsatisfied Forward or External Declaration : FechaForm

da pq o que voi declarado embaixo não está igual a declaração em cima...da uma olhada aew...o erro é isso...e depois posta se deu certo...flw aew!

[Faccruz 0]

I aew Faccruz, beleza???então cara... esse erro

Unsatisfied Forward or External Declaration : FechaForm

da pq o que voi declarado embaixo não está igual a declaração em cima...da uma olhada aew...o erro é isso...e depois posta se deu certo...flw aew!

Resolvido... eu tentava dar o CTRL+ALT+C o Delphi não criava a procedure... tive que fazer na mão...Valeu pela ajuda