A nyní již naše ukázka:

Procedure Stin(f: TForm; c: TControl; Width: Integer; Color: TColor);
var
rect: TRect;
old: TColor;
Begin
rect := c.boundsrect;
rect.Left := rect.Left + width;
rect.Top := rect.Top + width;
rect.Right := rect.Right + width;
rect.Bottom := rect.Bottom + width;
old := f.canvas.brush.color;
f.canvas.brush.Color := color;
f.canvas.fillrect(rect);
f.canvas.brush.Color := old;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
i: Integer;
begin
for i:=0 to Self.ControlCount-1 do Stin(self,Self.Controls[i],3,clblack);
end;