Delphi文本处理问题请教?

ticket为字符型字段Query.SQL.Clear;
Query.SQL.Add('select ticket ticket from c_code');
Query.Open;st:=TStringList.Create;
Query.First;
while not Query.Eof do
  begin
    st.add(Query.FieldByName('ticket').AsString);
    Query.Next;
  end;
st.SaveToFile('filename');
st.Free;因为记录数太多,处理起来很慢,
各位有没有什么好的办法,
可以一次这ticket这个字段存到一个文本文件中?
谢谢