function Upper(s: string): string;
var
  i: integer;
begin
  for i := 1 to length(s) do
    if isLower(s[i]) then s[i] := toUpper(s[i]);
  Upper := s;
end;