if (Clipboard.HasFormat(CF_TEXT)) or (Clipboard.HasFormat(CF_UNICODETEXT)) then begin
          MyHandle := 0;
          sleep(50);
          for i := 1 to 10 do // 最大100ms
          begin
            //
            try
              stmp := Clipboard.AsText;
              if stmp <> '' then
                Break;
            except
              //
            end;
            sleep(10);
          end;