[camiz]

para alguno que lo necesite lo resovi
de esta manera y funciona muy bien.

Código Delphi [-]
var  CodFactura :string;
begin
  with frmConeccion.MostrarNumFactura do
  begin
  Active := True;
  CodFactura := FloatToStr(FieldByName('CODFACTURA').AsInteger +1);
  Active := False;
  begin
    txtnumeroFactura.Text := FormatFloat('000000', StrToInt(CodFactura));
  end;
end;