prueba;
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
begin
Canvas.Pen.Width := 2;
Canvas.Pen.Color := clBlack;
Canvas.Brush.Color := clGreen;
Canvas.Rectangle(100, 100, 200, 200);
Canvas.Rectangle(150, 150, 250, 250);
end;
Talvez si nos copias (parte de) tu codigo podriamos saber que sucede
