Salutations to all

This code snippet is part of another element that I use to extract concatenated external texts, it works a lot, but in the project here, loading takes 11 minutes to complete the run. I'm trying to extract the code. see if this resolves and diminishes this time.

Could you erase this code here?

begin
if StringGrid1.Cells(1,3) ('') then
for i:=1 to 100 do memo40.Lines.add(StringGrid1.Cells(i,3))
end ;

begin
if StringGrid1.Cells(1,4) ('') then
for i:=1 to 100 do memo41.Lines.add(StringGrid1.Cells(i,4))
end ;

begin
if StringGrid1.Cells(1,5) ('') then
for i:=1 to 100 do memo42.Lines.add(StringGrid1.Cells(i,5))
end ;

begin if StringGrid1.Cells(1,6) ('') then
for i:=1 to 100 do memo43.Lines.add(StringGrid1.Cells(i,6))
end ;

begin
if StringGrid1.Cells(1,7) ('') then
for i:=1 to 100 do memo44.Lines.add(StringGrid1.Cells(i,7))
end ;

begin
if StringGrid1.Cells(1,8) ('')
then for i:=1 to 100 do memo45.Lines.add(StringGrid1.Cells(i,8))
end ;

begin
if StringGrid1.Cells(1,9) ('') then
for i:=1 to 100 do memo46.Lines.add(StringGrid1.Cells(i,9))
end ;

begin
if StringGrid1.Cells(1,10) ('') then
for i:=1 to 100 do memo47.Lines.add(StringGrid1.Cells(i,10))
end ;

begin if StringGrid1.Cells(1,11) ('') then
for i:=1 to 100 do memo48.Lines.add(StringGrid1.Cells(i,11))
end ;

to start

if StringGrid1.Cells (1,12) (& # 39;) then

for i: = 1 to 100 of memo49.Lines.add (StringGrid1.Cells (i, 12))

end