[[seoane]]

Prueba usando la propiedad DelimitedText:

Código Delphi [-]
var
  s: string;
begin
  s:= '1;2;3;4';
  Listbox1.Items.Delimiter:= ';';
  Listbox1.Items.DelimitedText:= s;
end;