Help - What is this code used for ?

I found this code in the INDY 9 basic TCPClient demo, and i have no idea
what it is used for...

procedure TfrmMain.LockControls(ALock: Boolean);
var
i : integer;
begin
for i := 0 to componentcount-1 do
if TControl(Components[i]).Tag = 99 then
TControl(Components[i]).Enabled := ALock;
end;


The rest of the demo is quite straithforward...

Thanks,
Eddy.



.