Непонятная ошибка Argument out of range
T1List := TM_Int64List.Create;
T2List := TM_Int64List.Create;
pT1List:= TM_Int64List.Create;
pT2List:= TM_Int64List.Create;
IF (T1List.Count = pT1List.Count) AND (pT2List.Last <> DateTimeToUnix(Prostoy_time_now_2.Value)) then
begin
pT1List.Add(T2List.Last+1);
pT2List.Add(DateTimeToUnix(Prostoy_time_now_2.Value));
end;
Всё верно, у вас есть пустой список и Вы пытаетесь получить несуществующий последний элемент списка (когда последнего нет). Добавьте проверку на количество элементов:
if pT2List.Count > 0 then
if (T1List.Count = pT1List.Count) AND (pT2List.Last <> DateTimeToUnix(Prostoy_time_now_2.Value)) then
begin
pT1List.Add(T2List.Last+1);
pT2List.Add(DateTimeToUnix(Prostoy_time_now_2.Value));
end;
List<long> list = new List<long>();
if (list.Last() > 0)
{
}