Formatando cep

{ Esta função forma CEP como: 99.999-999 }
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; {Use assim:

- Coloque um Edit e um Button no form;

- No evento OnClick do Button coloque a instrução abaixo:}

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