Lazarus解决无法识别中文路径的方法

procedure TForm1.Button1Click(Sender: TObject);
var
  FileN:string;
begin
   if self.OpenDialog1.Execute then
   begin
     filen:=UTF8ToAnsi(self.OpenDialog1.FileName);
     self.Memo1.Lines.SaveToFile(FileN);
   end;
end;