Função: Validar UF - Códigos Delphi

Função: Validar UF

// Testa se a UF é Válida ou Não

function ValidarEstado(Dado : string) : boolean; const Estados = 'SPMGRJRSSCPRESDFMTMSGOTOBASEALPBPEMARNCEPIPAAMAPFNACRRRO'; var Posicao : integer; begin Result := true; if Dado <> ' then begin Posicao := Pos(UpperCase(Dado), Estados); if (Posicao = 0) or ((Posicao mod 2) = 0) then begin Result := false; end; end; end;