[scroyler]

Всем привет.
Собственно когда писал код столкнулся с такой проблемой.

Вот код

Код:

procedure TForm2.ListBox1Click(Sender: TObject);
var FileName:string;
 Path : String;
begin
Path := ExtractFilePath(ParamStr(0))+ 'DB\base' + PathDelim;
ForceDirectories(Path);

 FileName:=Path+ListBox1.Items[ListBox1.ItemIndex]+'.txt' ;

     ListBox1.Items.LoadFromFile(Path+'Basecat1.txt');

    CheckListbox2.Items.LoadFromFile(FileName)    ;


end;

Суть очень проста выделяю строку нажимаю кнопку вписываю текст сохраняю. ОТкрываю пункт там уже текст и так далее.
Все хорошо, только вот почемуто перестало выделять эти строки. Если пишу в текстовик текст то все норм отображает,а мне надо что бы текст в текстовике меняло программно. А для это го нужно что бы строка была выделена так как при нажатии на кнопку меняется текст для выделенной строки,а строка не выделяется.

Вот код кнопки сохранения.

Код:

procedure TForm2.Button15Click(Sender: TObject);
  var s:string;
       var FileName:string;

     var Path : String;
     p:tpoint;

begin
 Path := ExtractFilePath(ParamStr(0))+ 'DB\base' + PathDelim;

ForceDirectories(Path);

FileName:='cat ';

      ListBox1.Items.SaveToFile(Path+'Basecat1.txt');

ListBox1.items.SaveToFile(FileName) ;
    CheckListbox2.Items.SaveToFile(FileName)    ;


end;