эндрю, вероятно, база DBF III, т.е. в DOS-кодировке? Если это так, то необходимо использовать что-то типа
/пример из книги "Советы программистов" В.Озерова, стр.72 /:
Код:
Procedure TForm.DosToWin;
var
str : PChar;
begin
str := Memo1.Lines.GetText;
OemToChar(str,str);
Memo1.Lines.SetText;
end;
и обратно
Procedure TForm.WinToDos;
var
str : PChar;
begin
str := Memo1.Lines.GetText;
CharToOem(str,str);
Memo1.Lines.SetText;
end;