166       end;

   166       end;

   167 end;

   167 end;

   168 

   168 

   169 procedure AddClouds;

   169 procedure AddClouds;

   170 var i: LongInt;

   170 var i: LongInt;

   172 begin

   171 begin

   173 for i:= 0 to cCloudsNumber do

   172 for i:= 0 to cCloudsNumber do

   174     AddVisualGear( - cScreenWidth + i * ((cScreenWidth * 2 + 2304) div cCloudsNumber), -140, vgtCloud)

   173     AddVisualGear( - cScreenWidth + i * ((cScreenWidth * 2 + 2304) div cCloudsNumber), -140, vgtCloud)

   175 end;

   174 end;

   176 

   175