var Costam : TStringList;
i: integer;
for i:=0 to Length(Costam)-1 do begin
costamcostam;
end;
Zaznacza linie z Length(Costam) i wypisuje 'Incompatible types'. Wydaje mi sie ze to wczesniej dzialalo :), ale moze sie myle.
Oczywiscie Costam zostalo juz wczesniej utworzone