procedure CheckForColOnc(OnCar1, OnCar2: TImage; Index1, Index2:Byte);
begin
    if ((OnCar1.Top < 0) and
    (OnCar2.Top < 0) and
    (OncomingCarParameters[Index1].Position = OncomingCarParameters[Index2].Position)) then
    begin
        OnCar1.Top := Round(2.4*OnCar2.Top);
    end;
end;