"Project 1.exe raised exception class EInvalidPointer with messege 'Invalid pointer operetion'"..

[DeEgo]

Доброго времени суток Помогите, пожалуйста. Пишу свою первую программу. Компилятор delphi 2009. Компиляция проходит без ошибок, но дебагер время от времени ругается. После выхода из программы пишет "Project 1.exe raised exception class EInvalidPointer with messege 'Invalid pointer operetion'"..
Я вот думаю дело в определении строковых переменных..

var
   text, buf, str, str1: String;

В голову пришла только такая мысль.. но что то мне подсказывает что это не верно
str1:='0000000000';
buf:='000000';

заранее всем спасибо!!

procedure TForm1.Button1Click(Sender: TObject);
label
m1;
  var
   text, buf, str, str1: String;

 key: array of integer;
 k, i,j,n,m: integer;
begin

  text:=Edit1.Text;
  str:=Edit2.Text;
  str1:='0000000000';
  buf:='000000';
  m:=length(text);
  n:=length(str);
  SetLength(key, n);

  for i:=1 to n do
  begin
  key[i]:=StrToInt(str[i]);
  end;



  k:=1; j:=1;
m1:
  for i:= 1 to n do
    begin
      buf[key[i]]:=text[j];
      j:=j+1;
      if j>m then
      text[j]:='_';
    end;
for i:=1 to n do
  begin
    str1[k]:=buf[i];
    k:=k+1;
  end;
   if j<=m then  goto m1;
  SetLength(str1,k-1);
  edit3.text:=str1;

end;

и еще после того, как закроешь сообщение дебагера выходит еще одно "Project 1.exe raised exception class EAcceessViolation with message 'Access violation at address 00478D0E in module '1.exe'....

[Kotofff]

Здесь :

for i:= 1 to n do
begin
buf[key[i]]:=text[j];
j:=j+1;
if j>m then
text[j]:='_';
end;

ты работаешь с buf у которого длина не всегда равна длине str, поэтому и такая ошибка, ведь цикл по i идет до длины str.
Выход: уровняй длины buf и str до циклов.

[DeEgo]

Спасибо большое=)
а функция SetLength() для символьных переменных будет работать? Т.е. такая запись верна ?

SetLength(buf, n);

[kta87]

SetLength(buf, n); -----> тут