[rojo]

si, tienes razon, estaba un poco redundante... sin embargo, aun me queda el problema, de hecho ahora agrega lineas vacias al memo ....

mira, aqui es donde voy procesando cada linea del memo y la agrego al gráfico...

procedure TForm1.procesar(Sender: TObject);
var
  i: integer;
  a1, a0, v1, v0, p, tiempo, primero: extended;
begin
  a0:=0;
  v0:=0;
  p:=0;
  tiempo:=0;
  for i:=0 to memo1.Lines.Count-3 do
    begin
    try
      primero:=strtoint(memo1.lines.Strings[i][1]);
          a1:=strtoint(memo1.lines.Strings[i][1]+memo1.lines.Strings[i][2]+memo1.lines.Strings[i][3]);
      if (not(primero=1)) then
        begin
          a1:=strtoint(memo1.lines.Strings[i][1]+ memo1.lines.Strings[i][2]);
        end;
      a1:=strtofloat(edit3.text)*(a1-strtofloat(edit2.text));
      tiempo:=tiempo+1.365;
      chart1.Series[0].AddXY(tiempo, a1);
      a1:= a1*9.8;
      v1:=Integ(a1, a0, 0.001365)+ v0;
      chart2.Series[0].AddXY(tiempo, v1);
      p:= integ(v1, v0, 0.001365)+ p;
      chart3.Series[0].AddXY(tiempo, p);
      v0:=v1;
      a0:=a1;
    except;
    end;
  end;

la variable a1 como que la voy armando, ves?
el asunto es que uso un if para que vea si el primer digito es un 1 (del 100) y si no lo es (o sea, es menor a 100) a1 toma el valor de dos digitos que le corresponde...
la funcion integ() es una integral....
dime si no esta claro....
muchas gracias