[dec]

Hola,

Como apunta Delphius podría tratarse de utilizar de la unidad "ClipBrd" la clase "TClipBoard" más o menos de este modo:

Código Delphi [-]
uses
   ClipBrd;
 
 procedure TForm1.Button1Click(Sender: TObject);
 var
   s: string;
   i: integer;
   cb: TClipboard;
 begin
   i := ListBox1.ItemIndex;
   if i > -1 then
   begin
     cb := TClipboard.Create;
     s := ListBox1.Items[i];
     cb.SetTextBuf(PChar(s));
     cb.Free;
   end;
 end;