[roman]

Un opción es que implementes un procedimiento o función para separar los dos núeros de cada línea y convertirlos a enteros. Por ejemplo ésta:

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

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

A este procedimiento le pasas cada línea del Memo y dos variables para guardar los resultados. Las sumas las acumulas en otras variables:

Código Delphi [-]
var
  SumaTension, SumaVoltaje: Integer;
  Tension, Voltaje: Integer;
  I: Integer;

begin
  SumaTension := 0;
  SumaVoltaje := 0;
 
  for I := 0 to Memo1.Lines.Count - 1 do
  begin
    Split(Memo1.Lines[i], Tension, Voltaje);
    SumaTension := SumaTension + Tension;
    SumaVoltaje := SumaVoltaje + Voltaje;
  end;
end;

Ya sólo tendrías que sacar el promedio

// Saludos