Fórum progressbar #210965

Caros Amigos, estou com a seguinte dificuldade

como acrescentar isto à um progressbar

obrigado
att
Emerson Nantes de Matos


procedure TForm1.Button1Click(Sender: TObject);
var linha: TStringList;
nRg: Integer;
begin
linha := TStringList.Create;
linha.LoadFromFile(´C:\cliente.txt´);
nRg := linha.Count; // armazena as linhas
linha.Free;
linha := Nil;
edit1.Text := FloatToStr(nRg);
end;