[Cheerpipe]

Les dejo una funcion para extraer los simbolos (letra pura) de caracteres multybyte, en resumen, quitar acentos y otras hierbas usando la api mencionada arriba. Un detalle importante es que esto lo hice en Delphi 2009, en versiones anteriores la declaracion de uso de la api podria variar y por tanto las funciones que puse, no funcionaran, esto porque la declaración es ahora Unicode.

Código Delphi [-]
function extractSimbolFromMultiByteChar(Text: PAnsiChar): Char;
var
  Buffer: Char;
  Size: Integer;
begin
  Size := MultiByteToWideChar(0,0,Text,-1,nil,0);
  if (Size > 0) then
  begin
    MultiByteToWideChar(0 ,MB_COMPOSITE , Text,-1, @Buffer, Size);
    result:=Buffer;
  end;
end;

function clearMultiByteChar(Text: String): String;
var
  i: Integer;
begin
  result:='';
  for I := 1 to Length(Text) do
    Result:=Result+extractSimbolFromMultiByteChar(PAnsiChar(AnsiString(text[i])));
end;