sql导出TXT文件，字段无法对齐

导出的test.txt文件打开后各字段不对齐，test.txt内容如下：停电申请号 申请单位 申请人 停电地点
2002001 XX市供电局 章为 长江西路
2002002 XX供电局 东欧 小庙
2002003 XX供电局 刘平 地位 我希望的样子是：
停电申请号  申请单位 申请人 停电地点
2002001   XX市供电局 章为 长江西路
2002002   XX供电局 东欧 小庙
2002003   XX供电局 刘平 地位 导出的代码如下：procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i:integer;
  s: string;
  memo1:TStrings;
begin
  memo1:=TStringList.Create;
  memo1.Clear;
  with ADODAtaSet1 do
  begin
    s:='';
    for i := 0 to ADODataSet1.FieldCount - 1 do
      s := s + ADODataSet1.Fields[i].FieldName+#9;
    memo1.Append(s);
    while Not Eof do
    begin
      s:='';
      for I := 0 to ADODataSet1.FieldCount - 1 do
      begin
        s:=s+ Trim(ADODataSet1.Fields[i].AsString)+#9;
      end;
      memo1.Append(s);
      Next;
    end;
  end;
  memo1.SaveToFile('e:\test.txt');
  memo1.Free;
end;各位高手帮帮忙把，多谢了！