Delphi - hola como podria hacer una etiqueta que cada vez q

hola buenas soy un novatillo en delphi.

Estoy haciendo una pequeña aplicacion que ataca a interbase 7.5 con los controles Tibdatabase, TibTransaction, TibQuery y un TDataModule i lo que quiero es crear boton que me muestre el el numero de venta maximo o ultimo de la tabla Ventas en un DbText pero solo me funciona la primera vez que clico la segunda ya no me funciona como si le faltase refrescar


procedure TFMain.RefrescarMax(Sender: TObject);
begin

DBMaxVen.DataSource := nil;

with DataModuleU do
begin
with DSVentaMax do
begin
AutoEdit := False;
DataSet := nil;
end;

with IBQVentaMax do
begin
Active := false;
SQL.Clear;
Transaction := nil;
Database := nil;
end;
end;

with DataModuleU do

begin
with IBQVentaMax do
begin
Database := IBDb;
Transaction := IBTr;
SQL.Clear;
SQL.Add('select max(cven) from venta');
Active := true;
end;

with DSVentaMax do
begin
DataSet := IBQVentaMax;
AutoEdit := True;
end;
end;

DBMaxVen.DataSource := DataModuleU.DSVentaMax;

end;

Gracias de antemano.