escribir en un edit

[principiante22]

Saludos, como puedo hacer que cuando el usuario este escribiendo en un edit despues de escribir 4 caracteres se agregue el signo -, se que es en el OnKeyPress del edit pero no se me ocurren los codigos.

[*Caro*]

Hola, pon este codigo en el evento keypress de tu edit.

Código Delphi [-]
 if (length(Edit1.Text)=4) and (key<>#8) then
 begin
  Edit1.Text:=Edit1.Text+'-';
  Edit1.SelStart:=length(Edit1.Text);
 end;

Saluditos

[principiante22]

Gracias por la ayuda