VALIDAÇÃO PARA ESTADOS BRASILEIROS (UF)

// verifique se a biblioteca SysUtils está declarada na cláusula 'uses'

// Declare a função :

function ChecaUF(const aUF : string) : Boolean; 

// Crie a função

function ChecaUF(const aUF : string) : Boolean;
const
  Estados = 'SPMGRJRSSCPRESDFMTMSGOTOBASEALPBPEMARNCEPIPAAMAPFNACRRRO';
var
  Posicao : Integer;
begin
  Posicao := Pos(UpperCase(aUF), Estados);
  Result := not ((Posicao = 0) or ((Posicao mod 2) = 0)
    or (Trim(aUF) = ''));
end;

// Exemplos de uso:

// Teste se verdadeiro
  if CheckUF('EditEstado.Text') then
    ShowMessage('UF válida');
 

// Teste se falso  
  if not (CheckUF('EditEstado.Text')) then
    ShowMessage('UF inválida');