[angvelem]

Примерно так, если не вру:

Код:

procedure TForm1.Button5Click(Sender: TObject);
var
  animals : TStringList;
begin
  animals := TStringList.Create;
  animals.LoadFromFile(OpenDialog1.FileName);;
  Memo2.Lines.Text := animals.text;
end;