Mine

procedure TKeybThread.Ctrl_F11_Handler;
begin
  LogWrite(-1, 'F11 press, strings count='+inttostr(inStrings.count));
  if inStrings.Count>0 then begin
    s1:=inStrings.Strings[0];
    inStrings.Delete(0);
  end else s1:='';

  if s1<>'' then begin
    src:=ExpandEnvi(cfg.ReadString('path', 'F11_writeto', ''));
    LogWrite(-1, 'write "'+s1+'" to '+src);
    WriteText(src, s1);
  end;

  src:=ExpandEnvi(cfg.ReadString('path', 'F11_run', '')+' '+inttostr(findProcess(cfg.ReadString('F11', 'process_for_find', '')))+' '+cfg.ReadString('path', 'F11_params', ''));
  if cfg.ReadString('path', 'F11_run', '')<>'' then begin
    LogWrite(-1, 'Run "'+src+'"');
    WinExec(PChar(src), SW_SHOWNORMAL);
  end else LogWrite(-1, 'No run');

//  packet_send(cfg.ReadString('network', 'ip_tosend', ''), myCMD_F11, 'F11 press');
//  packet_send(cfg.ReadString('network', 'ip_tosend', ''), myCMD_Start, 'Process run, '+src);
end;