[bigguntm]

Hola a toda la comunidad, voy a tomar el ejemplo ya puesto, si deseo introducir la Cédula: V-12.837.967, yo quisiera que al colocar 'V' se marque automaticamente '-' luego coloco '12' y automaticamente '.', asi sucesivamente, en mi caso seria MEP-04598-005. Al colocar 'MEP' se marque '-' y que no se pueda volver a colocar una letra, osea que el Maximo de las letras sea tres. y luego que la letra sea introducida, se pueda comenzar a introducir los numeros. ejemplo, coloco '04598' y se marca automaticamene '-' para colocar los ultimos 3 numeros, esto fue lo que se me ocurrio, pero no funciona correctamente,

Código Delphi [-]
 procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
 begin if StrLen( PChar(Edit2.Text) ) < 3 then
  if not( key in [#8,'m','e','p','-']) then    
begin
    MessageBeep(MB_ICONERROR);
    key := #0;  
if StrLen( PChar(Edit2.Text) ) > 3 then
  if not( key in [#8,'0'..'9','-']) then
begin   
MessageBeep(MB_ICONERROR);
key := #0;
  end;
 end; 
end;

Saludos