для каждого коментария создай отдельный файл, имя файла должно быть рывным слову в списке
Код:
procedure TForm1.ListBox1Click(Sender: TObject);
begin
memo1.Clear;
try
memo1.Lines.LoadFromFile(ListBox1.Items.Strings[ListBox1.ItemIndex]+'.txt');
except
memo1.Lines.Add('Файла нет!!!');
end;
end;