[lmikle]

Ну и в чем проблема?
Кидаешь на форму TPaintBox. в его обработчике OnPaint пишешь код рисования на канве, типа:

Код:

With PaintBox1.Canvas Do
  Begin
     Pen.Color := clBlack;

     MoveTo(50,200);
     LineTo(250,200);

     // и так далее.
  End;

по примитивам смотри справку по TCanvas или подсказку в самой дельфе.