Histograma en Delphi

[[cHackAll]]

Será algo como ésto :

Código Delphi [-]
procedure TForm1.FormPaint(Sender: TObject);
var Pos: Cardinal;
begin
 Pos := 256;
 with Canvas do
  repeat Dec(Pos);
   Pen.Color := RGB(Pos, Pos, Pos);
   MoveTo(Pos, 0);
   LineTo(Pos, 64);
  until Pos = 0;
end;

0j0: OnPaint