for x := 1 to LV.items.count-1 do
begin
task[1]:= TImage.Create(nil);
with task[1] do
        begin
             Parent := frmMain;
             Height := 27;
             Width := 100;
             Top := 12;
             Picture.Icon := TIcon.Create;
             Stretch := true;
             if x <> 0
             then Left := Width * x + (x-2)*Height
             else Left := Parent.Width - Width * 3 div 2;
             Show;
             Repaint
        end;
end;