[JCooper]

Все работает:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
   rect: TRect;
begin
   TextOut(Form1.Canvas.Handle, 10, 10, PChar('TEXT'), 4);
   rect.Left:=30;
   rect.Top:=30;
   rect.Right:=60;
   rect.Bottom:=60;
   FillRect(Form1.Canvas.Handle, rect, CreateSolidBrush(1));
end;

Вот на скорую руку, есть вопросы пиши.