procedure TForm1.Button1Click(Sender: TObject);
var
Hiduke,v1,v2,v3:string;
Goukei:integer;
i:integer;
begin
i := 0;
while (i*5 < Memo1.Lines.Count) do begin
Hiduke := Memo1.Lines[i*5];
v1 := Memo1.Lines[i*5+1];
v2 := Memo1.Lines[i*5+2];
v3 := Memo1.Lines[i*5+3];
Goukei := StrToInt(v1)+StrToInt(v2)+StrToInt(v3);
Memo2.Lines.Add(Format('%s Total : %4d',[Hiduke,Goukei]));
inc(i)
end;
end;