Foros Club Delphi - Trabajo con WebBrowser

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)

- - Trabajo con WebBrowser (https://www.clubdelphi.com/foros/showthread.php?t=87886)

Trabajo con WebBrowser

Hola a todos y gracias por la ayuda de antemano.

Tengo esta idea en mente:
Necesito que al seleccionar una opcion dentro de un BDListBox , se me muestre la informacion en un webbrowser, porque lo necesito como en la wiki portable el webbrowser trabajaria como como un DBGrid.
No tengo idea de como hacerlo.

Bienvenido a clubdelphi, como siempre aconsejamos a los nuevos, no olvides leer nuestra guía de estilo, gracias por tu colaboración :)

Trabajo con WebBrowser

Creo que he arreglado mi problema pero de una forma muy brusca

Código:

Memo1->Lines->Clear();

Memo1->Lines->Add("<html>");

Memo1->Lines->Add("<center>");

Memo1->Lines->Add(DBEdit2->Text);

Memo1->Lines->Add("</center>");

Memo1->Lines->Add("</html>");

ADOQuery1->Close();

ADOQuery1->SQL->Clear();

String tema = "SELECT Temas FROM Notas WHERE Temas = '"+Label1->Caption+"'" ;

ADOQuery1->SQL->Add(tema);

ADOQuery1->Open();

Memo1->Lines->Add(ADOQuery1->Fields->FieldByName("Temas")->AsString);

ADOQuery1->Close();

ADOQuery1->SQL->Clear();

String notas = "SELECT Notas FROM Notas WHERE Temas = '"+Label1->Caption+"'" ;

ADOQuery1->SQL->Add(notas);

ADOQuery1->Open();

Memo1->Lines->Add(ADOQuery1->Fields->FieldByName("Notas")->AsString);

ADOQuery1->Close();

Memo1->Lines->SaveToFile("List.html");

String url = GetCurrentDir() +"/"+"List.html";

CppWebBrowser1->Navigate(url.c_str(),NULL,NULL,NULL,NULL);

Habra otra forma de simplificar este código.?