procedure Screen_Cursor_Set(sCurs:string='crDefault');
//"Назначить" курсор на экране
Var
  Yes:boolean;
begin
  sCurs:=trim(sCurs);
  Yes:=false;
  if sCurs='' then sCurs:='crDefault';
  if AnsiUpperCase(sCurs)=AnsiUpperCase('crDefault') then  begin
     Yes:=true;
     Screen.Cursor:=crDefault;
  end;
  if AnsiUpperCase(sCurs)=AnsiUpperCase('crHourGlass') then  begin
     Yes:=true;
     Screen.Cursor:=crHourGlass;
  end;
  if AnsiUpperCase(sCurs)=AnsiUpperCase('crSQLWait') then  begin
     Yes:=true;
     Screen.Cursor:=crSQLWait;
  end;
  if AnsiUpperCase(sCurs)=AnsiUpperCase('crAppStart') then  begin
     Yes:=true;
     Screen.Cursor:=crAppStart;
  end;
  if AnsiUpperCase(sCurs)=AnsiUpperCase('crHandPoint') then  begin
     Yes:=true;
     Screen.Cursor:=crHandPoint;
  end;
  if AnsiUpperCase(sCurs)=AnsiUpperCase('crArrow') then  begin
     Yes:=true;
     Screen.Cursor:=crArrow;
  end;
  if AnsiUpperCase(sCurs)=AnsiUpperCase('crNo') then  begin
     Yes:=true;
     Screen.Cursor:=crNo;
  end;
  if not Yes then begin
     Screen.Cursor:=crDefault;
  end;
end;