Сохранение данных в Clipboard

Code:

    var

      hBuf: THandle;

      BufPtr: Pointer;

      MStream: TMemoryStream;

    begin

      hBuf := Clipboard.GetAsHandle(CF_MYFORMAT);

      if hBuf <> 0 then

      begin

        BufPtr := GlobalLock(hBuf);

        if BufPtr <> nil then

        try

          MStream := TMemoryStream.Create;

          try

            MStream.WriteBuffer(BufPtr^, GlobalSize(hBuf));

            MStream.Position := 0;

          { read your data from the stream }

          finally

            MStream.Free;

          end;

        finally

          GlobalUnlock(hBuf);

        end;

      end;

    end;