[Opsidon]

С помощью Query делаю выборку из DB, выборку построчно добавляю в MEMO, и сохраняю в текстовый фаил.

Код:

begin
Memo1.Clear;
with Query1 do
  begin
    First;
     while not EOF do
        begin           memo1.lines.add(''+FieldByName('MD').Text+#9''+FieldByName('Borepress').Text+#9''+FieldByName('Annpress').Text);
           Next;
        end;
        Memo1.Lines.SaveToFile('c:\1.txt');
  end;
end;

38.04	70	58
38.04	70	59
204.69	157	153
204.69	171	151
204.69	168	148
204.69	-999.25	-999.25
204.69	-999.25	-999.25
204.69	-999.25	-999.25
204.69	158	153
222.67	-999.25	-999.25
310.39	-999.25	-999.25
355.01	-999.25	-999.25
363.02	-999.25	-999.25
806.38	-999.25	-999.25
881.24	-999.25	-999.25
1474.21	68	73
1481.46	68	72
1489.7	76	67
1489.7	79	70
1490.35	69	68
1491.28	71	67
1491.28	72	66
1491.28	72	66
1491.28	75	66
1494.99	-999.25	-999.25

Вопрос как сделать так что-бы столбцы выравнивались по правому краю?

Вот как бы хотелось

Код:

 1474.21      73      68
 1481.46      72      68
  1489.7      70      79
  1489.7      67      76
 1490.35      68      69
 1491.28      66      75
 1491.28      66      72
 1491.28      66      72
 1491.28      67      71
 1494.99-9999.25-9999.25
 1498.33      59      70
 1498.46      50      52
 1498.46      26      59
  1498.8      30      47
 1499.12      69      69
 1500.53      65      74
 1500.53      61      72
 1500.53      61      72
 1500.53      57      68
 1500.53      58      68
 1500.53      59      71