[ApplicatiOn]

var
nmass: array[1..50] of string;

...

в событии на клик по кнопке пишем:

var
i: integer;

begin
for i:=1 to 50 do
nmass[i] := edit1.text;
end;

и вы забьете 50 ячеек массива текста edit1.text