Untitled

procedure TForm1.tmSearchTimer(Sender: TObject);
Var
  eINI    : TIniFile;
  Input   : String;
  Count   : Integer;
  i       : Integer;
begin
  If GetKeyState(VK_RETURN) < 0 Then
  Begin
    eINI := TIniFile.Create('./SearchEngines.ini');
    Count := eINI.ReadInteger('Count', 'EngineCount', 0);
    Input := edSearchInput.Text;
    For i := 1 to Count do
    Begin
      If eINI.ReadString(IntToStr(i), 'SearchEngine', '') = ListSearchEngines.Text Then
        ShellExecute(0, 'Open', PChar(eINI.ReadString(IntToStr(i), 'SearchCode', '') + Input), NIL, NIL, SW_MAXIMIZE);
    End;
  End;
end;