var
  sar:array of string; 
  i:Integer;
begin
  SetLength(sar,ListBox1.Items.Count);
  for i:=0 to ListBox1.Items.count-1 do
    sar[i]:=ListBox1.Items.Strings[i];
end;