Hola
Vamos por partes a ver si lo solucionas.
1, declaramos el procedimiento donde estan los demas en el form, asi:
Código Delphi
[-]
type
TForm1 = class(TForm)
ADOQuery1: TAdoQuery;
..... los demas
procedure FormCreate(Sender: TObject);
procedure refrescargrid;
.... los demas
private
public
end;
Luego el procedimento:
Código Delphi
[-]procedure TForm1.refrescargrid; begin
adconnection1.ConnectionString:= cadenaconexion; ADPhysIBDriverLink1.VendorLib:= 'FBCLIENT.DLL'; adquery1.Close;
adconnection1.Connected:=True;
end;
A ver que pasa.
saludos