uses clipbrd;

var 
 clip:tclipboard;

begin
 try
   clip:=tclipboard.create;
   clip.astext='ваш текст'; // вставить/считать ваш текст в (из) буфер обмена 
   clip.assign('ваш текст'); // почти то же самое. 
 finally
  clip.free;
 end;
end;