procedure DeleteArrayEntry(Item: Integer; Array1: TArray);
var
I: Integer;
begin
if (Length(Array1) > 1) and (Item <> Length(Array1) - 1) then
for I := Item to Length(Array1) - 2 do Array1[I] := Array1[I + 1];
SetLength(Array1, Length(Array1) - 1);
end;