[habib2302]

в смысле и что переводить пробавал?
я тоже думал,что проблемы в этом коде
если я не ошибаюсь что-то еще здесь не так

Код:

///////////////////////////////////Удаление других приложений при старте
function GetUninstallPath(const AppIds: array of String): array of String;
var
  StringList: TStringList;
  i, Len: Integer;
  Buff: String;
begin
  for i := 0 to GetArrayLength(AppIds)-1 do
  begin
    Buff := RemoveQuotes(ExpandConstant('{reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + AppIds[i] + '_is1,UninstallString|}'));
    if Buff <> '' then
    begin
      Len := GetArrayLength(Result);
      SetArrayLength(Result, Len+1);
      Result[Len] := Buff;
    end;
  end;
end;