[look]

Código Delphi [-]
procedure TForm_FiltroPersonal.BitBtn4Click(Sender: TObject);

var

Text : String;
dpto : Integer;

begin

    Text := DBEdit1.Field.Text;
    dpto := Form_FiltroPersonal.ADODataSet1DPTONUMERO.Value;
    Form_FiltroPersonal.Hide;
    Form_Personal.Show;

    with qry do
    begin
     Close;
     sql.text := ('SELECT * FROM PERSONAL WHERE PERSODEPARTA = :TXT');
     ParamByname('TXT').AsString := Text;
     Open;
    end;
end;