[lmikle]

Ошибка, например, может возникать тут (во второй приведенной строке, но условие ошибки - в первой строке; ошибка - выход за пределы массива):

Код:

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;