Zitat:
ExecAndWait(Format('"%s" "%s"',[ProgName,Dateina]),ExtractFilePath(Dateina))
Müsste das nicht eher so aussehen:
ExecAndWait(ProgName,Dateina) Sofern Dateina Leerzeichen enthält, könnte Dateina vom aufgerufenen Programm wie mehrere Parameter interpretiert werden.
Wenn man MSPaint.exe aufruft, wird dies (vermutlich) über den Pfad (oder sonstwie) gefunden. Ruft man aber ein Programm über vollständigen Pfad und Dateinamen auf und die enthalten Leerzeichen, könnte das auch zu Fehlern führen.
Hab' nochmal in die Windows.pas geschaut, danach würd' ich mich für diese Variante entscheiden:
ExecAndWait(Format('"%s" "%s"',[ProgName,Dateina]),'')