[Delphi] zapis z pliku do drzewa..

[elu]

Witam serdecznie. Mam taki problem z zapisem pliku tekstowego ze słowami do drzewa...
Próbuję to zrobić tak: odczytać plik, zapisać te słowa do tablicy, wstawić je do drzewa(tu mam problem)...
drzewo mam tak napisane:

procedure wstaw(var drzewko:drzewo; slowko:slowo);
begin
  if (drzewko = nil) then
    begin
      new(drzewko);
      if (drzewko = nil) then exit;
      drzewko^.lewy:=nil;
      drzewko^.prawy:=nil;
      drzewko^.etykieta :=slowko;
    end
  else
     if length(drzewko^.etykieta) > length(slowko) then
       wstaw(drzewko^.lewy, slowko)
     else
     if length(drzewko^.etykieta) < length(slowko) then
       wstaw(drzewko^.prawy,slowko);
end;

a wstawianie do niego próbuję w taki sposób:

procedure TForm1.Button2Click(Sender: TObject);
var drzewko:drzewo;
    plik:TextFile;
    i:integer;
    word:string;
begin
i:=1;
  assignFile(plik, 'plik.txt');
  reset(plik);
    while not eof(plik) do
    begin
      readln(plik, word);
      tab1[i]:= word;
      inc(i);
    end;
  closeFile(plik);

  for i:=1 to length(tab1) do
  begin
    wstaw(drzewko,tab1[i]);
  end;
  
end;

no ale niestety wyrzuca mi jakiś błąd....
co jest źle??

proszę o pomoc..

[NoMaD]

Jaki błąd ci wyrzuca. Po za tym brak tu definicji typów slowo i drzewo przez co analiza kodu nie jest do końca możliwa. Kod wydląda w porządku (przynajmniej ta część którą przedstawiłeś).

[elu]

już wszystko działa zapomniałem w buttonie o

drzewko:=nil

.....