[BuenaOnda]

lo que podrias hacer es utilizar una variable "global" de tipo char y preguntar si el valor de esa variable es igual a la tecla pulsada, entonces que el valor de la tecla pulsada sea 0, osea no se escriba nada, todo esto en el evento keypress..

Código Delphi [-]
var
  tecla : char;
 
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
     IF(key=#32)OR(Key=#13) THEN Exit; //Si Quieres que se presionen  
                                                       //espacios o la tecla enter.
     IF tecla= Key THEN
        key:=#0
     ELSE
        tecla:=key;
end;

lo malo es que existen palabras que poseen letreras repetitivas como "coordinación ".. bueno quizas algun compañero nos pueda dar una mejor respuesta.. bueno espero haberte ayudado en algo...