[rufo]

Listo ya me quedo gracias a todos los que me contestaron de todos modos les anexo la solucion

Código Delphi [-]
procedure TDEPRECIACIONES.Button3Click(Sender: TObject);
begin
 if combobox4.Text<>'' then
 begin
    with dm1.Q_activos do
    begin
      active:=false;
      sql.Clear;
      sql.Add(' select * from Activos_fijos ');
      sql.add('where activo = :activo');
      ParamByName('activo').Value:= ComboBox4.Text;
      active:=true;
        if recordcount=0 then
         messagedlg('No se encontro el Activo Fijo, intente de nuevo',mtinformation,[mbok],0);
         begin
           label16.Caption:=fieldbyname('costo').asstring;
           label18.Caption:=fieldbyname('fecha').asstring;
         end;
    end;
end;
end;

Cuando termine mi proyecto Depreciaciones lo subera, y gracias a todos.