![EEK!](http://www.clubdelphi.com/foros/images/smilies/eek.gif)
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
![Roll Eyes (Sarcastic)](http://www.clubdelphi.com/foros/images/smilies/rolleyes.gif)