Caracteres raros con dbase

[marcoszorrilla]

Prueba con esto:

procedure TForm1.Button1Click(Sender: TObject);
var
cad1,cad2:Pchar;
begin
cad1:=Pchar(table1apellido1.value );
OemToChar(cad1,cad2);
ShowMessage(cad2);
end;

Es una idea, lo que tendrías que hacer es Cad2 guardarlo en Access.

Un Saludo.