Работа с UTF8 в Lazarus 1.6

  curpath:=SysToUTF8(ExtractFilePath(Application.ExeName));
  with DBForm.AccessODBCConnection do
  try
    ...
    Params.Add(UTF8ToSys('DBQ='+curpath+'base\base.mdb'));    
    Connected:=true;
  except
    ...
  end;

function UTF8ToSys(const s: string): string;
begin
  {$IFDEF UTF8_RTL}
  Result:=s;
  {$ELSE}
  if NeedRTLAnsi and (not IsASCII(s)) then
    Result:=UTF8ToAnsi(s)
  else
    Result:=s;
  {$ENDIF}
end;
 
function SysToUTF8(const s: string): string;
begin
  {$IFDEF UTF8_RTL}
  Result:=s;
  {$ELSE}
  if NeedRTLAnsi and (not IsASCII(s)) then
  begin
    Result:=AnsiToUTF8(s);
    {$ifdef FPC_HAS_CPSTRING}
    // prevent UTF8 codepage appear in the strings - we don't need codepage
    // conversion magic in LCL code
    SetCodePage(RawByteString(Result), StringCodePage(s), False);
    {$endif}
  end
  else
    Result:=s;
  {$ENDIF}
end;

  
  curpath:=ExtractFilePath(Application.ExeName); .// убрал SysToUTF8
  with DBForm.AccessODBCConnection do
  try
    ...
    Params.Add(UTF8ToWinCP('DBQ='+curpath+'base\base.mdb')); // заменил UTF8ToSys на UTF8ToWinCP   
    Connected:=true;
  except
    ...
  end;