Ошибка, например, может возникать тут (во второй приведенной строке, но условие ошибки - в первой строке; ошибка - выход за пределы массива):
Код:
for CPos := 1 to Length(Text) do
if Text[CPos] <> Text[CPos+1]
Так же в ComboBox1Click написан код, который, по факту ничего полезного не делает:
Код:
for i:=1 to Length(st) do
begin
n:=length('st');
end;