Dziwne kodowanie w Accessie

Cześć, mam następujący problem.

Pobieram dane z bazy Accessa i wyrzucam je do pliku tekstowego.
Jednak okazuje się, że w bazie nie ma polskich liter. Zamiast tego są dziwne znaczki.
Próbowałem konwersji AnsiToUTF8 i UTF8ToAnsi, jednak nic to nie dało. Wywala tak samo, jak jest w bazie. Ma ktoś jakiś pomysł?

zdaje się, że taki kodzik u mnie rozwiązywał problem:

function Zamiana(dane: string): string;
var
  tekst2: string;
  i, ile: integer;
  znak:   string;

begin
  ile    := Length(dane);
  tekst2 := '';
  for i := 1 to ile do
  begin
    znak := copy(dane, i, 1);
    if znak = 'ť' then
      znak := 'Ł'
    else if znak = '¤' then
      znak := 'Ą'
    else if znak = 'ŕ' then
      znak := 'Ó'
    else if znak = '—' then
      znak := 'Ś'
    else if znak = 'Ť' then
      znak := 'Ź'
    else if znak = '˝' then
      znak := 'Ż'
    else if znak = 'ă' then
      znak := 'Ń'
    else if znak = '¨' then
      znak := 'Ę'
    else if znak = '«' then
      znak := 'ź'
    else if znak = 'Ź' then
      znak := 'Ć'
    else if znak = '©' then
      znak := 'ę'
    else if znak = '˘' then
      znak := 'ó'
    else if znak = 'ľ' then
      znak := 'ż'
    else if znak = 'ä' then
      znak := 'ń'
    else if znak = '†' then
      znak := 'ć'
    else if znak = 'Ą' then
      znak := 'ą'
    else if znak = '' then
      znak := 'ł'
    else if znak = '' then
      znak := 'ś';
    tekst2 := tekst2 + znak;
  end;
  Zamiana := tekst2;
end;

sprawdź, czy aby odpowiednie znaki sobie odpowiadają.

A instrukcję case..of wymyslono w celu komplikacji języka...