var IconIndex: Word;
  Pch: array [0 .. 256] of Char;
begin
  if sOpenDialog1.Execute then
  begin
    S[1] := sOpenDialog1.FileName; // путь к файлу
    StrPCopy(Pch, S[1]);
    IconIndex := 1;
    Convert_simage1.Picture.Icon.Handle := ExtractAssociatedIcon(hInstance, Pch, IconIndex); // иконку в image
    BTN[1].Glyph.Assign(Convert_simage1.Picture.Graphic); // иконку в кнопку
  end;
end;

var
  IconIndex: Word;
  Pch: array [0 .. 256] of Char;
begin
  if S[SENSORTAG] = '' then // если переменная пуста
  begin
    if sOpenDialog1.Execute then
    begin
      S[SENSORTAG] := sOpenDialog1.FileName; // путь выбранного файла
      BTN[SENSORTAG].ImageIndex := -1;  // убераю дефолтную картинку
      StrPCopy(Pch, S[SENSORTAG]);
      IconIndex := 1;
      BTN[SENSORTAG].Picture.Icon.Handle := ExtractAssociatedIcon(hInstance,Pch, IconIndex);  // гружу иконку
    end;
  end else // если переменная S[] не пуста
  begin
    ShellExecute(Form1.Handle, nil, PChar(S[SENSORTAG]), nil, nil, SW_RESTORE);  // запускаю файл, путь которого в S[]
  end;
end;