Prueba con esto:
Código:
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.