[scroyler]

При написании кодавозникла проблема.

Код:

procedure TForm3.ListBox2Click(Sender: TObject);
var FileName:string;
begin
  FileName:=Edit1.Text+'.txt' ;
Memo1.Lines.LoadFromFile(FileName) ;

end;


procedure TForm3.SpeedButton1Click(Sender: TObject);
var FileName:string;
begin
           FileName:=Edit1.Text+'.txt';
  ListBox2.Items.Add(Edit1.Text) ;
    ListBox2.items.SaveToFile(FileName) ;
    Memo1.lines.SaveToFile(FileName)

end;

Вообщем суть кода такова.
Есть Едит1 (Название) Мемо1 (Содержимое,текст) и кнопка сохранить.
Работает код так.(должен так работать )
Я заполняю Едит(название), В мемо пишу текст. нажимаю сохранить. В листбокс пояляется пункт с Текстом едита(название) при нажатии на появивщийся пункт в листбоксе ,мемо заполняется текстом ( при нажатии сохранить текст мемо сохраняется в тхт файл) с тхт файла.
в коде подчти все работает только он заполняет мемо если в едит пишу название текстовика. подробнее посмотрите в коде думаю поймете