исправить ошибку в коде Delphi

[Gifted]

Помогите пожалуйста исправить ошибку в процедуре, сама уже не могу.

procedure FillBuff(var x:string; m:Integer);
var i,j:integer;
  begin
  for i:= 1 to length(x)-m do
  x[i]:= x[i+m];
  j:=length(x);
  setlength(x,j-m);
  i:= length(x)+1;
  while(i<=sizebf) and (i<length(st)) do
  begin
  x:=x+st[inc+1];
  inc(i);
  inc(ind);
  end;
  end;

Ошибка : x:=x+st[inc+1]; после плюса выдает ошибку.
Описание процедуры:
procedure FillBuff(var x:string;m:integer);
Процедура сдвига буфера при выполнении проверки совпадений со словарем. Происходит заполнение из строки.
Заранее огромное спасибо))

[Stilet]

inc это зарезервированное слово. Переименуй эту переменную.

после плюса выдает ошибку.

Неужели так сложно текст ошибки прочитать?

[Gifted]

Это я просто опечаталась, там не inc, a ind должно было быть, но там все равно ошибка получается. Что-то я сильно туплю... Короче не получается у меня не чего!!!

[Stilet]

не получается у меня не чего!!!

Тогда читать мой пост до полного просветления. Особенно обратить внимание на слова: "текст" и "ошибки".
Кстати:

 while(i<=sizebf) and (inc<length(st)-1) do

Так будет лучше.

[Gifted]

))) Спасибо)))) ну я и дура)))Что б я без вас делала)))

[Stilet]

Что б я без вас делала)

Без нас тебе нужно научится читать список ошибок, и хелп.