delphi tstringlist UTF-8 dbgrid widememo memo顯示問題

tmpStrs.LoadFromFile(filename, TEncoding.UTF8);  

 

onDrawColumnCell do dbgrid

var R : TRect; begin R:=Rect; Dec(R.Bottom,2); if Column.Field=Query1.FieldByName('Campo_Memo') then  begin   if not (gdSelected in State) then    DBGrid1.Canvas.FillRect(Rect);   DBGrid1.Canvas.TextRect(R,R.Left,R.Top,   Query1.FieldByName('Campo_Memo').AsString);  end; end;