Функция IsUpperCase возвращает True, если строка, переданная, как параметр Value, вся находится в верхнем регистре.

Вот эта функция:

function IsUpperCase(Value: string): Boolean;
 begin
    Result := Value = UpperCase(Value) ;
 end;

Пример использования:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(BoolToStr(IsUpperCase('PROBA')));
end;