Hallo und Willkommen in der
DP 
.
Bitte gewöhne Dir an, nur eine Frage pro Thread zu stellen. Zum 1. Problem:
Delphi-Quellcode:
if ListBox.ItemIndex > -1
then
ShellExecute(
Handle,'
open',PChar(ListBox.Items[ListBox.ItemsIndex]),PChar(Parameter),
nil,SW_SHOW);
Zum 2. Problem: da fehlen ein begin und end. Die kannst Du nur weglassen, wenn danach eine einzelne Anweisung folgt. Das ist bei Dir aber nicht der Fall.