----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

// vamos listar todas as janelas do IE abertas no momento
// Exemplo testado no IE 8, Delphi 2009 e Windows XP
// Note que o exemplo listará apenas as janelas cujas guias estão
// ativas. Veja minhas outras dicas sobre como obter cada guia
// individualmente
function ListarJanelasIE(Wnd: HWND; memo: TMemo): BOOL; stdcall;
const
  MyMaxName = 256;
  MyMaxText = 256;
var
  ClassName: string;
  WindowText: string;
begin
  // vamos obter o nome de classe da janela
  SetLength(ClassName, MyMaxName);
  SetLength(ClassName, GetClassName(Wnd, PChar(ClassName),
    MyMaxName));

  // no IE 8 o nome de classe da janela principal é IEFrame
  if ClassName = 'IEFrame' then
     begin
       // vamos obter o título da janela
       SetLength(WindowText, MyMaxText);
       SetLength(WindowText, SendMessage(Wnd, WM_GETTEXT, MyMaxText,
         lParam(PChar(WindowText))));

       memo.Lines.Add('Handle: ' + IntToStr(Wnd) + '; Título: ' +
         WindowText);
     end;

  // vamos passar para a próxima janela
  Result := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Clear;
  EnumWindows(@ListarJanelasIE, lParam(Memo1));
end;

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
var
  indice: Integer;
begin
  // vamos obter o índice do item selecionado no ComboBox
  indice := ComboBox1.ItemIndex;

  // mostra o resultado
  ShowMessage('O índice do item selecionado é: ' +
    IntToStr(indice));
end;

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
var
  frase: string;
begin
  frase := 'Gosto muito de Delphi e Java';

  // vamos verificar se a string começa com "Gosto"
  if AnsiStartsStr('Gosto', frase) then
    ShowMessage('A frase começa com a substring indicada')
  else
    ShowMessage('A frase NÃO começa com a substring indicada')
end;

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm2.Button1Click(Sender: TObject);
var
  valor: Real;
  resultado: Integer;
begin
  // uses Math

  valor := 8.3;

  // vamos arredondar o valor para cima
  // o resultado será 9
  resultado := Ceil(valor);

  // exibe o resultado
  ShowMessage('O valor arredondado para cima é: ' +
    IntToStr(resultado));
end;