Asegúrate de qué es lo que estás abriendo. Ten en cuenta que al compilar puede ser que estés en una carpeta del tipo C:\...\Debug\ o C:\...\Release\.
Código Delphi
[-]
T_string := ExtractFilePath(Application.ExeName) + 'SERVINETCOMPRY.exe' ;
T_string := char(34) + T_string + char(34);
ShowMessage('El valor de T_String es ' + T_String);
ShowMessage('El valor de D.USUARIO es ' + D.USUARIO);
Application.ShowMessage
W_ERROR:= ShellExecute(Handle, 'open', PChar(T_string) , PChar(D.USUARIO ), '', SW_SHOWNORMAL);