procedure TMyWin.Paint(PaintDC: HDC; var PaintInfo: TPaintStruct);
var
   myRect : TRect;
begin
     SetBkColor(PaintDC, RGB(128,0,0));     SelectObject(PaintDC, myBrush);
     myRect.left := 0; myRect.top := 0;     myRect.right := 400; myRect.bottom := 400;
     FillRect(PaintDC, myRect,bs_solid);

     SelectObject(PaintDC, myFontBig);      SetTextColor(PaintDC,RGB(0,128,0));
     TextOut(PaintDC,15,5,'$$',2); 

     SelectObject(PaintDC, myFontSml);      SetTextColor(PaintDC,RGB(0,0,255));
     TextOut(PaintDC,60,15,'A Check Book Program for Windows',32);

     SelectObject(PaintDC, myFontBig);      SetTextColor(PaintDC,RGB(0,128,0));
     TextOut(PaintDC,320,5,'$$',2);
end;