Fórum Alinhar Impressão Writeln #182287

Como eu faço para alinhar os campos usando o Writeln?
Atualmente a impressão está saindo assim :

3 Chopp 1 2,5
3 Chopp 1 2,5
3 Picanha 1 19
3 Chopp de Vinho 1 3

Estou usando o seguinte código :


procedure TForm23.Button1Click(Sender: TObject);
var
F: textfile;
I : Integer;
begin
AssignFile(F,´LPT1´);
Rewrite (F);
I := 0;
Adodataset1.First;
While not adodataset1.Eof do
begin
Writeln (F,adodataset1Mesa.AsString,´ ´,adodataset1Descricao.AsString,´ ´,adodataset1Qtd.AsString,´ ´,adodataset1Valor.AsString);
adodataset1.Next;
end;
Writeln (F,´Total R$´, dbedit6.text );
Closefile (F);

Outra Pergunta :

Tem como Formatar o Campo do Valor para ao invés de sair 2,5 fique 2,50, 19 fique 19,00 ?

Agradeço novamente pessoal!

[]´s