[ChinYan]

Код:

var
fL:TextFile;
TMP:String;
begin
AssignFile(fL,ListBox1.Items[ListBox1.ItemIndex]);
Reset(fL);
while not eof(fL) do
   begin
      Readln(fL,TMP);
      RichEdit1.Lines.Add(TMP);
   end;
end