Graph zeichnen

[-Julchen-]

Wir haben noch eine kleine Frage...
Wie kann man die Beschriftung des Graphen farbig gestalten?

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject); 
var i,j:integer; 
x,y:real; 
begin 

  a:=strtofloat(Edit1.Text);                          //Eingabe 
  b:=strtofloat(Edit2.Text); 
  c:=strtofloat(Edit3.Text); 

  
  i:=70; 
  while i<420 do 
    begin 
    i:=i+1; 
    x:=(i-220)/50;                                       //x skalieren 
    y:=a*sqr(x+b)+c;                                     //Funktion y=a*(x+b)²+c 
    j:=round((220-y*50));                                //j berechnen 
    image1.Canvas.Pixels[i,j]:=clblue;                   //zeichnen 

    image1.Canvas.TextOut(400,100,'y=a*sqr(x+b)+c');     //Beschriftung 
    end; 
  end;

Wir haben es versucht mit:

Delphi-Quellcode:

  image1.Canvas.TextOut(400,42,'y=ax+b');         //Beschriftung
  image1.Canvas.Pen.Color:=clred;                // Schrift-Farbe rot

Jedoch ging das nicht.
Kann uns bitte jemand erneut helfen?