for i:=0 to ListBox.Items.Count-1 do
 begin
  if (i=ListBox.Items.Count-1)
   then S:=S ListBox.Items.Strings[i]
   else S:=S ListBox.Items.Strings[i] ';';
 end;
Query.FieldByName(欄位).AsString:=S;

procedure zCutStr(var StrList:TStringList;S,KeyStr:String);
var
 Len,j,iEnd:Integer;
begin
StrList:=TStringList.Create;
Len:=Length(S);
j:=0;
while Pos(KeyStr,S)>0 do
 begin
  iEnd:=Pos(KeyStr,S);
  StrList.Add(Copy(S,0,iEnd-1));
  Inc(j);
  S:=Copy(S,iEnd Length(KeyStr),Len);
 end;
StrList.Add(Copy(S,0,Length(S)));
end;    

procedure TForm1.Button1Click(Sender: TObject);
Var
  I : Integer;
  S : String;
begin
  For I:=0 to ListBox1.Items.Count-1 do
  begin
    S := S + ListBox1.Items[I] + ';';
  end;
  ADOTable1.FieldByName('欄位名稱').AsString := S;
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

var
  s: string;
begin
  s := ListBox1.Items.Text;
  s := StringReplace(s, #13#10, ';', [rfReplaceAll]);
  // ...
  Query.FieldByName(欄位).AsString := s;
end;