Delphi: Odczyt tekstu ze schowka

Jak sprawdzić czy w schowku jest tekst i jak go odczytać.

uses Clipbrd;

function GetTextFromClipboard:string;
var
  dwLen : Cardinal;
  hData : THandle;
  ps1, 
  ps2   : PChar;
begin
  Result := '';
  with Clipboard do 
  begin
    try
      Open;
      if(HasFormat(CF_TEXT)) then 
      begin
        hData := GetClipboardData(CF_TEXT);
        ps1 := GlobalLock(hData);
        dwLen := GlobalSize(hData);
        ps2 := StrAlloc(1 + dwLen);
        StrLCopy( ps2, ps1, dwLen );
        Result := ps2;
        GlobalUnlock( hData );
        StrDispose( ps2 ) ;
      end;
    finally
      Close;
    end;
  end;
end;