Da ist das ' vor dem plus nach dem Edit1.Text
Code:
ShellExecute(FTagessicherung.Handle, nil, 'pacomp',PChar('-a -c2 -r -P -q' + Edit1.Text [color=red]+ '[/color] "C:\1*.*"'), nil, SW_NORMAL);
[EDIT]Zu langsam 
[/EDIT]
Stephan B.
"Lasst den Gänsen ihre Füßchen"