hacer una funcion?

[Descendents]

una funcion para crear Tlistbox??

No se si te entiendo.

Por ejemplo una funcion que crea tantos listbox como un numero que tu le pases?

procedure Tform1.crearlista(num:integer);
var
n:integer;
lista:Tlistbox;
begin
  for n := 0 to num -1 do begin
   lista := Tlistbox.create(self);
   lista.parent := self;
   lista.left := k;
   k := k +150;
  end;
end;

//lo llamarias asi al procedimiento
procedure TForm1.Button1Click(Sender: TObject);
begin
  crearlista(3);
end;

A ver si esto es lo que quieres.
Saludos