Не пойму почему сбрасывается значение.

[ZBEP]

Вот пример:

procedure TForm1.FormCreate(Sender: TObject);
begin
nst:=0;
end;

...
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
Stat: string;
begin
For i:=nst to Memo3.Lines.Count-1 do
begin                      
  If Pos('Поиск слова', Memo3.Lines[i])<>0 then
  stat:=Memo3.Lines[i];
  //Если найдено, то задаем значение.
  nst:=nst+1;
end;
Form1.Caption:=stat;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
nst:=0;
end;

Теперь о результате.
Если нажать один раз на Button1 то выводится все как надо, если нажать второй раз на Button1, то Form1.Caption становится равно '' (пустоте в общем). И пока не сбросить значение nst - желаемого результата нет.
Почему значение сбрасывается? Нигде же не стоит его сброс, по идее без сброса nst, Form1.Caption должно равняться последнему значнию Stat.

[evg_m]

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
Stat: string;
begin
For i:=nst to Memo3.Lines.Count-1 do
begin                      
  If Pos('Поиск слова', Memo3.Lines[i])<>0 then
  stat:=(Copy(Memo3.Lines[i],9,length(Memo3.Lines[i])-8));
  //Если найдено, то задаем значение.
  nst:=nst+1;
end;
Form1.Caption:=stat;
end;

Stat локальная переменная которая начально (при входе в процедуру) =''
если ничего не нашли то значение не изменяется и выводим ''.

stat:=form.caption;

[mihali4]

Сообщение от ZBEP

если нажать второй раз на Button1, то Form1.Caption становится равно '' (пустоте в общем)...
Form1.Caption должно равняться последнему значению Stat.

В procedure TForm1.Button1Click вы инициализируете
var Stat: string;
Вот она и становится "пустышкой"...
Сделайте Stat глобальной переменной и все будет ок...

[ZBEP]

mihali4, evg_m,, спасибо, не подумал что-то об этом.
Все тему можно закрывать.