Strings kannst du mit
+ verküpfen.
Mal so am Rande, kann es sein, dass ich diese Zeile schon zum 159874 mal hier sehe?
Damit das hier mal ein Ende hat:
ShellExecute(FMain.Handle, nil, 'pacomp',PChar('-a -c2 -r -P -q' + Edit1.Text' + "C:\*.*"'), nil, SW_NORMAL);