试下以下代码:
procedure TForm1.Button1Click(Sender: TObject);
begin
   opendialog1.execute;
if opendialog1.filename<>'' then
    memo1.Lines.LoadFromFile(opendialog1.filename);
end;
我试过了,对于中文、英文、各种符号的TXT有效,日文我就不知道了。应该是一样的吧!