Problema con ShellExecute

Hola como están;

tengo este código para visualizar un archivo en notepad

procedure TFormMain.Visualizar1Click(Sender: TObject);
var
  i:integer;
  archivo:string;
begin
  i:=ListView1.Selected.Index;
  archivo:=ListView1.Items.Item[i].SubItems[3];
  ShellExecute(Handle,'open',PChar(EditNotepad.Text),PChar(archivo), nil, SW_SHOWNORMAL) ;
end;

Cuando le paso un archivo con espacios no funciona ¿Alguna Idea? Gracias

Cuando le paso un archivo con espacios no funciona ¿Alguna Idea? Gracias

En general las rutas que tengan espacios han de encerrarse entre comillas dobles cuando estamos en entornos CMD. En el caso de ShellExecute, no es necesario y funciona perfectamente en Win10 con nombres con espacios. Probablemente el problema que tienes sea otro, o que el archivo que deseas abrir no exista.

Revisa bien lo que hay en ListView1.Items.Item[i].SubItems[3]

Saludos.