lazarus 的组件tdbf 如何连dbase数据库

clxer

单位一系统是dbase数据库的，我用tdbf组件连，中文出来都是乱码，想从网上抄一段来转码，结果提示：
unit1.pas(33,29) Error: method identifier expected
unit1.pas(33,29) Fatal: Syntax error, ";" expected but "." found

{$R *.lfm}
procedure TForm1.TCustomGrid.DrawCellText(aCol,aRow:Integer;aRect:TRect;aState:TGridDrawState;aText:String);
    begin
     with ARect do begin
       dec(Right,3);
       case Canvas.TextStyle.Alignment of
        Classes.taLeftJutify:Inc(Left,3);
        Classes.taRightJusiyec(Right,1);
       end;
       case Canvas.TextStyle.Layout of
       tlTop:Inc(Top,3);
       tlBottomec(Bottom,3);
      end;
      if Right<Left then
       Right:=Left;
      if Left>Right then
       Left:=Right;
      if Bottom<Top then
       Bottom:=Top;
      if Top>Bottom then
       Top:=Bottom;
      if self.ConverTye=1 then
       aText:=ansitoutf8(aText);
      if (Left<>Right) and (Top<>Bottom) then
        Canvas.TextRect(aRect,Left,Top,aText);
      end;
     end;
end.         

大家帮分析是哪里的错？                                       

zydzyd999

unit1.pas(33,29) Error: method identifier expected
unit1.pas(33,29) Fatal: Syntax error, ";" expected but "." found //应该在end. 前少end;