function ZeSchranky : string;
begin
if Clipboard.HasFormat(CF_TEXT) then result := Clipboard.AsText
else result := 'schranka je prazdna !';
end;
end;


procedure SmazSchranku;
begin
Clipboard.Clear;
end;
V proceduře pro vložení dat do schránky můžete podle potřeby zvětšit pole pro vkládané znaky. Ve funkci pro získání obsahu schránky je při nalezení prázdné schránky vrácena varovná hláška, což samozřejmě v reálné aplikaci nepoužijete a je to zde uvedeno pouze pro zpřehlednění a objasnění zdrojového kódu.