Delphi - Convertir codigo

Hola quiero que me me ayuden a convertir este codigo...

ListBox1.Clear;
ListBox1.Items.Assign(windows.WindowList);
ListBox1.ItemIndex := 0;
SetStyle(0);
Label3.Caption := IntToStr(ListBox1.Items.count) + ' window(s) found ';

if (ListBox1.Items.count < 1) OR (ListBox1.ItemIndex < 0) then exit;
Image1.Picture.Icon := nil;
ico := TIcon.Create;
whdl := WinList1.GetWinHandle(ListBox1.ItemIndex);
hdlp := WinList1.GetWinParent(ListBox1.ItemIndex);
thdl := WinList1.GetThreadID(ListBox1.ItemIndex);
phdl := WinList1.GetProcessID(ListBox1.ItemIndex);
wsty := WinList1.GetWinStyle(ListBox1.ItemIndex);
wxty := WinList1.GetWinExStyl(ListBox1.ItemIndex);

if (ListBox1.Items.count < 1) OR (ListBox1.ItemIndex < 0) then exit;
pero en vez de usar un listBox quiero usar un ToolBar.. como reemplazo las propiedades????????????

Mi problema es el siguiente, tengo un programa que me permite obtener datos pra imprimir. Yo necesito mandar esos datos a un archivo y leerlos desde Delhi para poder reutilizarlos.
No tengo idea de como hacerlo
Gracias
CHULA