Вот так работает
## Код:
```
MODULE DemoClip;

IMPORT SYSTEM, WinApi, Log;

PROCEDURE Do*;
VAR des, desLock, i: INTEGER; str: WinApi.PtrSTR;
BEGIN
   des := WinApi.OpenClipboard(0);
   des := WinApi.GetClipboardData (WinApi.CF_TEXT);
   desLock := WinApi.GlobalLock(des);
   str := SYSTEM.VAL(WinApi.PtrSTR, desLock);
   
   i := 0;
   WHILE str[i] # 0X DO
      Log.Char(str[i]); INC(i)
   END;
   
   desLock := WinApi.GlobalUnlock(des);
   des := WinApi.CloseClipboard();
END Do;

END DemoClip.
```
