1:

if uppercase(str)=str) then ...					

1:
2:

If Not Key=Shift /// als Code natürlich
And Not Key In [0..9] etc. /// auch als Code					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

function IsGrossbuchstaben(const S: String): Boolean;
var
  I: Integer;
begin
  Result := True;
  for I := 1 to Length(S) do begin
    if not (S[I] in [#65..#90]) then begin
      Result := False;
      Exit;
    end;
  end;
end;