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