problemas de acentos

[acrophet]

Hombre, yo no se si habrá algo específico para hacer lo que tu quieres; pero te puedes montar una funcioncita que busque vocales acentuadas y las cambie por sus respectivas sin acento.
No se si será algo muy de "alta programación" pero para salir del paso puede resultar.

[marcoszorrilla]

Programación a nivel del mar. Aquí tienes un ejemplo muy simple:

  Function Dias(dFecha:TDateTime):String;
  var
  Adias:Array[1..7] of String;
  begin
  Adias[1]:='Domingo';
  Adias[2]:='Lunes';
  Adias[3]:='Martes';
  Adias[4]:='Miercoles';
  Adias[5]:='Jueves';
  Adias[6]:='Viernes';
  Adias[7]:='Sabado';
  
  Result:=Adias[DayOfWeek(dfecha)];
  end;
 
  procedure TForm1.Button1Click(Sender: TObject);
  begin
  ShowMessage(Dias(now));
  end;

Un Saludo.