Fórum SOS Problema com Listbox #516496

function PreencherStr(pTexto: string; pTamanho: integer): string;
var
        lCont: integer;
        lTexto: string;
begin
         lTexto := pTexto;
         
         for lCont := Length(pTexto) to pTamanho do
         begin
                  lTexto := lTexto + ' ';
         end;
 
         result := lTexto;
end;

ListBox1.Items.Add(PreencherStr('Arroz',10) + PreencherStr('R$ 10,001',10) + PreencherStr('1',10) + PreencherStr('R$ 10,001',10));

procedure TFormVendas.Button1Click(Sender: TObject);
var
precoU, SubTotal:real;
ncarac, x, Quant:integer;
result:string;

begin
precoU:=strtocurr(Edit1.text);   
Quant := strtoint (ComboBox2.Text); 
Edit1.text := FloatToStrF(precoU,ffCurrency,7,2); 
Combobox2.Text := FloatToStr(Quant); 
ncarac:=length(ComboBox1.text); 
for x:=1 to 18 do   
begin
if x <= ncarac then   
result := result + copy(ComboBox1.text, x, 1)  
else
result := result + ' '; 
end;