Yo pediría primero esto:
Código Delphi
[-]
var
S: String;
...
S := '"' + ListBox1.Items[ListBox1.ItemIndex] + '"';
ShowMessage(S);
ShellExecute(Handle, 'Open', 'Photoshop', pchar(S), nil, SW_SHOW);
y que nos diga exactamente que dice el ShowMessage.
// Saludos