Copiar y pegar en un Grid desde un Listbox

[ecfisa]

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.