Var //Объявляем переменные
hg:HGLOBAL;
bo,fo:BOOL;
len:Integer;
sz:PChar;
begin
bo:= OpenClipboard(0); //Открываем буфер обмена
if not(bo) then //Если не смогли открыть
TerminateProcess(GetCurrentProcess(),1); //то сворачиваемся

len:= CountClipboardFormats(); //Формат буфера обмена
if len > 4 then
Writeln('Buffer full')
else
Writeln('Buffer empty');

fo:= IsClipboardFormatAvailable(CF_TEXT); //Проверяем есть ли текст
if not(fo) then //Если текста нет
writeln('Text is out'); //Выводим сообщение

hg := GetClipboardData(CF_OEMTEXT); // Получаем данные
sz := PChar(GlobalLock(hg)); // из буфера обмена
writeln(sz); //Выводим эти данные на экран
end.