Hola de nuevo.
Sin usar TClipBoard que haría más complejo el ejemplo, una forma sencilla de copiar y pegar usando un
TPopupMenu es:
Código Delphi
[-]
...
implementation
var
Aux: string;
procedure TForm1.Copiar1Click(Sender: TObject);
begin
if (ListBox1.ItemIndex > -1)and(PopupMenu1.PopupComponent.Name = 'ListBox1') then
Aux:= ListBox1.Items[ListBox1.ItemIndex];
end;
procedure TForm1.Pegar1Click(Sender: TObject);
begin
if PopupMenu1.PopupComponent.Name = 'StringGrid1' then
with StringGrid1 do Cells[Col,Row]:= Aux;
end;
Podrías mejorar el código mostrando mensajes si alguna condición necesaria no se cumple, como por ejemplo que un item esté seleccionado.
Saludos.