Etwas in eine Message Box zeichnen (Canvas)

[isocam]

hallo,

Ich möchte gerne in eine MessageBox etwas zeichnen, zb. einen Farbverlauf.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i,f,r,g:Integer;
begin

with CreateMessageDialog('Wie gehts ?',mtquestion,[mbyes,mbno]) do try
 ...
 f:=Round(255/Height);
 r:=0;
 g:=255;
 Canvas.Pen.Color:=RGB(r,g,100);
 FOR i:=0 TO Height do begin
  Canvas.MoveTo(0,i);
  Canvas.LineTo(Width,i);
  Inc(r,f);
  Dec(g,f);
  Canvas.Pen.Color:=RGB(r,g,100);
 end;
 repaint;
 ...
 finally
 ...
end;
end;

Ich habe diesen Code benutzt, um einen Farbverlauf in die MessageBox zu zeichnen. Aber es ist nur dieses schnöde Windowsgrau zu sehen. Keine Fehlermeldung vom Compiler.
Wäre schön, wenn mir jemand helfen könnte.