Sacar promedio de lista de números en un TMemo

[Zmusera]

Aah nono ya está. Puse el procedure Split arriba de todo, claro, sino no me lo reconocía quedo así:

Código Delphi [-]
procedure Split(S: String; out D, E: Integer);
var
  I: Integer;

begin
  I := Pos(' ', S);
  D := StrToIntDef(Copy(S, 1, I - 1), 0);
  E := StrToIntDef(Copy(S, I + 1, Length(S)), 0);
end;

procedure TForm1.ArchivoClick(Sender: TObject);

var
i: integer;

begin
Detener1:= False;
SumaTension := 0;
SumaVoltaje := 0;

try
Archivo.enabled:=false;
detener.enabled:=true;

if OpenDialog1.Execute then

Lista.Lines.LoadFromFile(OpenDialog1.FileName);

   for i:= 0 to Lista.Lines.Count - 1 do
     begin
     Application.ProcessMessages;
     tiempo.caption := TimeToStr(Time);
     Split(Lista.Lines[i], Tension, Voltaje);
     SumaTension := SumaTension + Tension;
     SumaVoltaje := SumaVoltaje + Voltaje;
     A:=i;
          if detener1 then
           begin
           break;
           end;
     lista.Lines[i]:= lista.Lines[i] + '   ...    ' +tiempo.Caption;
     end;
     Detener.Enabled:=false;

    if (A=Lista.Lines.Count-1) then
     begin
    A:= A+1;
     PromedioT.caption:= 'El promedio de la tension es de: ' + FormatFloat('0.000',(SumaTension/A));
     PromedioV.caption:= 'El promedio del voltaje es de: ' + FormatFloat('0.000',(SumaVoltaje/A));
     end;

finally

end;
end;


procedure TForm1.DetenerClick(Sender: TObject);

begin

Detener1:=True ;
Reanudar.Enabled:=true;
Detener.Enabled:=false;
end;

procedure TForm1.ReanudarClick(Sender: TObject);
var
i: integer;

begin

   try
   reanudar.Enabled:=false;
   detener.Enabled:=true;
   detener1:=false;
 for i:= A to Lista.Lines.Count - 1 do
     begin
     Application.ProcessMessages;
          tiempo.caption := TimeToStr(Time);
          Split(Lista.Lines[i], Tension, Voltaje);
    SumaTension := SumaTension + Tension;
    SumaVoltaje := SumaVoltaje + Voltaje;
    A:=i ;
          if detener1 then
           begin

           break;
           end;
     lista.Lines[i]:= lista.Lines[i] + '   ...    ' +tiempo.Caption;
     if (A=Lista.Lines.Count -1) then
            begin
            Detener.Enabled:=false;
            Archivo.Enabled:=true;
            A:=A+1;
     PromedioT.caption:= 'El promedio de la tension es de: ' + FormatFloat('0.000',(SumaTension/A));
     PromedioV.caption:= 'El promedio del voltaje es de: ' + FormatFloat('0.000',(SumaVoltaje/A));
     end;
     end;
     detener.enabled:=false;

finally
end;
end;


end.

Gracias chicos!