Evento KeyPress (Acepte Números y un caracter especial)

[Soa Pelaez]

Buen día.

Quisiera que me ayuden quiero validar un Edit para que me acepte números y un caracter dependiendo del resultado de una sentencia.

Código Delphi [-]
  if Sentencia.RecordCount > 0 then
  begin
  //Prueba es una variable tipo string
    Prueba:= Sentencia.FieldValues['caracter'];
    if not (CharInSet(Key,['0' .. '9', Prueba , #8, #27])) then // 03/10/2015
    begin
      Key := #0;
      Beep; // 03/10/2015 Sonido para que sepa que la tecla no la reconoce en el campo
    end;
  end

El error que me arroja es Incompatyble types: 'AnsiChar and String'

Si alguien puede ayudarme se lo agradecería.