List index out of bounds (2 стринглиста воюют :D)

[Кольша]

var
m:integer;
begin
m:=Min(s1.Count,s2.Count);
m:=min(m,s3.Count);
for i:=0 to m -1 do

[Аватар]

Зачем усложнять?

for i:=0 to min(s1.Count,Min(s2.Count,s3.Count))-1 do ...

[Кольша]

Неплохо, не подумал про такой вариант.