procedure Tfcotizacion.Remplazar1Click(Sender: TObject);
var cap:string;
n:integer;
t:tshiftstate;
begin
n:=32;
t := [ssCtrl];
cap:= popupmenu1.Items.Items[0].Caption;
stringgrid1.Cells[fcotizacion.col,row]:=cap;
fcotizacion.OnKeyDown(sender,VK_CANCEL,);
end;
gracias,esto me ha matado el sueño desde hace muuucho tiempo.