[ecfisa]

Hola DarkBlue.

Para realizar lo que buscas te conviene simular que se ha presionado una tecla mediante la función keybd_event:

Código Delphi [-]
procedure Tfcotizacion.Remplazar1Click(Sender: TObject);
begin
   ...
   keybd_event(VK_CANCEL,0,0,0);
end;

Que ha sido reemplazada por la función SendInput , aunque sigue funcionando perfectamente.

Te pongo un ejemplo con esta última también:

Código Delphi [-]
procedure Tfcotizacion.Remplazar1Click(Sender: TObject);
var
  Inp: TInput;
begin
  ...
  Inp.Itype:= INPUT_KEYBOARD;
  Inp.ki.wVk:= VK_CANCEL;
  Inp.ki.dwFlags:= 0;
  SendInput(1, Inp, SizeOf(Inp));
end;

Saludos.