como obtengo la version de mi aplicacion?

[squenda]

Gracias, ya funciona como lo necesitaba, lo que hice fue quitar la condicion If y al Result le asigne los cuatro valores

try
GetBuildInfo(v1,v2,v3,v4);
Result := IntToStr(v1) + '.' + IntToStr(v2) + '.' + IntToStr(v3) + '.' + IntToStr(v4);
except
Result := '';
end;


Muchar Gracias

Saludos