mostrar un porcentaje o progressbar

[[Delphius]]

Hola rzf1983,
Creo entender tu problema.
Tu obtienes el valor algo asi:

Código Delphi [-]
porcentaje := FuncionDelaLibreria;

Como deseas mostrar el prorgeso. Debes emplear un TTimer y en su evento OnTimer poner algo como esto:

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Progressbar1.Position := Trunc(porcentaje);
  // Siendo Max = 100
  // Siendo Min = 0
  // Position es integer por lo que si porcentaje es real
  // no andará

  //o puedes usar un TGauge
  Gauge1.Progress := trunc(porcentage);
  // Siendo MaxValue = 100
  // Siendo MinValue = 0
end;

Si no es esto lo que deseas explica mejor cual es tu problema.

Saludos,