[pesi]

в

Код:

uses  ClipBrd

и вот

Код:

var
c, cc : string;
begin
c:= listview1.Items.Item[listview1.ItemIndex].Caption;
cc:=listview1.Items.Item[listview1.ItemIndex].SubItems.Strings[0];
Clipboard.SetTextBuf(PChar(c+cc));
end;