[AnimatoR]

только начинаю пробывать работать в делфи...возникла проблема...

при запуске программы:

Код:

const d=20;
      n=50;
type
     stroka=string[d];
     ssilka=^stroka;
     text=array[1..n] of ssilka;
 var
     i,k,raz:integer;
     te:text;
     strok:ssilka;
     st:string;
begin
   k:=mmOutput.Lines.Capacity;
   New(strok);
   for i:=1 to n do   te[i]:=nil;
   for i:=1 to k do begin
                    st:=mmOutput.Lines.Strings[i-1];
                    te[i]^:= st;
                     end;
   for i:=1 to n do begin
                        if te[i]=nil then begin mmOutput.Lines.Add('пусто') ;
                                          end
                                      else
                                     mmOutput.Lines.Add(te[i]^);
                    end;

  Dispose(strok);

когда в мемо не пишешь ничего, т.е. все эл-ты массива Nil, то выводит "пусто" коректно.
Но стоит написать какой либо текст в мемо....так сразу вылетает с ошибкой...почему?что я сделал не так.Заранее спасибо.Если можно поподробнее.