No quisiera hacerte el trabajo, pero te ayudará mucho ver la ayuda de Delphi.
Escribo Listbox en el editor, márcalo y presiona F1.
Esto es un ejemplo que hay en la misma ayuda y puede servirte:
Código Delphi
[-]
with ListBox1 do
begin
Items.Add('Hello');
Items.Add('New');
Items.Add('World');
end;