Formatar CEP no Delphi

 Esta é função de forma bem arcaica para retornar o
CEP como 99.999-999, porem sabemos que poderemos usar
o MaskEdit ou até mesmo o EditMask em caso de se usar
uma Bando de Dados, dentro da Table1, por exemplo.

function tbFormataCEP(const CEP: string): string;
var
  I: integer;
begin
  Result := '';
  for I := 1 to Length(CEP) do
    if CEP[I] in ['0'..'9'] then
      Result := Result + CEP[I];
  if Length(Result) <> 8 then
    raise Exception.Create('CEP inválido.')
  else
    Result :=
      Copy(Result, 1, 2) + '.' +
      Copy(Result, 3, 3) + '-' +
      Copy(Result, 6, 3);
end;

  Para testar:

- Coloque um Edit e um Button no form;
- No evento OnClick do Button coloque a instrução abaixo:

  Edit1.Text := tbFormataCEP(Edit1.Text);

- Ele pode ser colocado também no evento OnExit do Edit;