vantagens e desvantagens da DLL...

library exdll;

uses
  SysUtils,
  Classes,
  DB,
  IB,
  IBSQL,
  IBStoredProc,
  IBDataBase,
  IBCustomDataSet,
  DBTables,
  DBCtrls,
  Forms,
  ToolEdit,
  CurrEdit,
  Dialogs,
  Windows,
  Controls,
  StdCtrls;

{$R *.res}

procedure opensp(SP:TIBStoredProc; Frm:TForm);stdcall; export;
var
i:integer;
Source: TComponent;
begin
  for i:=0 to SP.FieldDefs.Count-1 do
    begin
      Source:=Frm.FindComponent(SP.FieldDefs.Items[i].Name);
      if source <> nil then
       begin
         if source is TEdit then
          TEdit(source).Text:=SP.FieldByName(Sp.FieldDefs.Items[i].Name).AsString;
       end;
     end;
     Sp.Prepare;
     SP.ExecProc;
end;

exports
opensp;
begin
end.

procedure TForm1.Button3Click(Sender: TObject);
type
Topensp = procedure(SP:TIBStoredProc; Frm:TForm);
var
dllok: THandle;
opensp: Topensp;
begin
{Carregar DLL}
 dllok:=LoadLibrary(´exdll.dll´);
 if dllok = 0 then begin
  MessageDlg(´Não foi possível carregar a DLL ´,MtError, [mbOK],0);
  Exit;
 end;
{Obter o endereço do procedimento}
 @opensp:=GetProcAddress(dllok, ´opensp´);
 if @opensp <> nil then
 {Chamar o procediemtno}
 opensp(Dm1.IBSP2, Form1)
 else
 MessageDlg(´Não foi possível encontrar o procedimento!!´, mtError, [mbOK],0);
{Descarregar DLL}
FreeLibrary(dllok);
end;