Datenbankinhalt grafisch im Web darstellen

[pnuernbe]

Super, kann die größe meines Balkens (Blau1.gif) steuern.
Allerdings weiß ich nicht wie ich die größe des zweiten Balkens (Blau2.gif) steuern kann. Hab den Code eingefügt...vielleicht kannst Du mir ja helfen...?
Das Problem ist, das wohl mit ReplaceText immer nur ein Tag angesprochen werden kann.

//***********************HTML Tag**********************************
procedure TWebModule1.PPR_GrafikHTMLTag(Sender: TObject; Tag: TTag;
const TagString: String; TagParams: TStrings; var ReplaceText: String);
var Grafik0,Grafik1:string;//Variable
begin
Grafik0 := '';
Grafik0 := '100';//Wert festlegen

Grafik1:='';
Grafik1:='200';



ReplaceText := Grafik0;//Tecxt ersetzen
ReplaceText :=Grafik1;

//*********************************HTML SeitePageProducer***********