preciso converter 2 coisas.. alguem me ajuda?

if Key in [´a´..´z´] then Key:= UpCase(Key);

procedure CriaForm(FormClass: TFormClass);
begin
 with FormClass.Create(Application) do
  try
   ShowModal;
  finally
   Free;
  end;
end;