delphi : How to do this without declaring 200 variables?

delphi : How to do this without declaring 200 variables?

I think that is a solve for my problem but I didn't find it, so...Can you
help me?
I want to do something like this:
var
a, b, c: string;
d: integer;
begin
a := stringgrid1.Cells[1,1];
b := stringgrid1.Cells[2,1];
c := stringgrid1.Cells[3,1];
d := strtoint(a) + strtoint(b) + strtoint(c);
stringgrid1.Cells[4,1] := inttostr(d);
end;
But what i need is to declare 200 string variables like in this example.
Is there anyway a 'shortcut' for this?