Aus Edit1 aus lesen

[Schubi]

Da fehlen nur die Leerzeichen vor und nach Edit1.text. also nach dem q und vor dem c:
etwa so:
ShellExecute(FTagessicherung.Handle, nil, 'pacomp',PChar('-a -c2 -r -P -q ' + Edit1.Text + ' C:\Projekte\SLNPraxis\Daten\1*.*'), nil, SW_NORMAL);