Problem z paskiem zaawansowania

Witam!
Mam taki kodzik:

procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,
  ProgressMax: Integer);
  var
  percent:integer;
  begin
    if (progressmax <=0)or (progress < 0) then
    begin
   statusbar1.SimpleText:='Gotowe';
end
else
begin
percent:=(progress*100) div progressmax;

statusbar1.simpletext :=format ('Pobieranie strony:
%d%% z %dK', [Percent, progressmax div 1024]);
  end;
  end;

Wyskakuje mi błąd na linii

statusbar1.simpletext :=format ('Pobieranie strony:

A oto błąd:
[Error] Unit1.pas(305): Illegal character in input file: '%' ($25)

Robię sobie przeglądarkę taką małą do www i potrzebny mi jest pasek ładowania strony:) Wyskakuje mi błąd jeszcze jeden i nie wiem jak go rozwiązać.
Otóż gdy odpalam przeglądarkę swoją i mam odpaloną już stronę jakąś i gdy daję klawisz << Wstecz to mi wyskakuje błąd, ponieważ nie ma żadnej strony przed tą i nie wiem jak zablokowac przycisk jeśli mam odpaloną stronę przed którą nie ma żadnej. Trochę namieszałem ale da się wyczytać coś :) Pomożecie??? Pomożemy:)) Dzięki.

moze sie myle ale jest tam chyba o 1(lub 2) "%" za duzo... stawia sie to raczej przed anizeli po....
Sadze tez ze moze "K" jest tam niepotrzebne

ponadto warto zajrzec pod F1 i do demosow(!)