dibujar un rectangulo

[[escafandra]]

Prueba a simplificarlo así:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Rect: TRect;
begin
  Rect:= ClientRect;
  InflateRect(Rect, -Width div 4, -Height div 4);
  Canvas.Rectangle(Rect);
end;

Saludos.