[rufo]

Buenas tardes resulta que tengo un meo que cuando digito la cantidad no me separa los miles automaticamente, y eso es lo que quiero ver si se puede pero sin afectar este codigo o modificar, ya que voy ir ingresando mas cantidades, les anexo el codigo que estoy usando en memo:

Código Delphi [-]
var
 v1,v2: Double;
 c: Integer;
begin
c:= 0;
  Memo2.Lines.Clear;
  while (c < Memo4.Lines.Count) and (c < Memo7.Lines.Count) do
  begin
    if TryStrToFloat(Memo4.Lines[c],v1) and TryStrToFloat(Memo7.Lines[c],v2) then
      Memo2.Lines.Add(Format('%8.2f',[v1*v2]))  
    else
      Memo2.Lines.Add('Error en operandos. (Línea' + IntToStr(c) +')');
    Inc(c);
  end;

De antemano gracias.