procedure TextoAPortapapeles(cad : string);
begin
        ClipBoard.SetTextBuf(pchar(cad));
end;

function TextoDesdePortapapeles : string;
begin
        result:='';
        if Clipboard.HasFormat(CF_TEXT) then result:=Clipboard.AsText;
end;

Añadiendo ClipBrd al uses.