Фокусировка на пустых Edit'ах

[Pavel_Mitrofanov]

Написал инструкцию типа

begin
     if key=#13
       then
           begin
                if length(edit1.text)=0
                    then edit1.setfocus
                    else
                        begin
                             if length(edit2.text)=0
                               then edit2.setfocus
                               else
                                   begin
                                        if length(edit3.text)=0
                                          then edit3.setfocus
                                          else button2.setfocus;
                                   end;
                        end;

[/COLOR]она не рациональна

что хочу сделать:
1) засунуть данную инструкцию в модуль
2) расписать ее более красиво

что получилось

модуль:

procedure setfocus_edits_button(edits_on_form:array of tedit; button_on_form:tbutton);
                       var
                          i:integer;
                          status:bolean;

                       begin
                            status:=true;

                            for i:=1 to hight(edits_on_form) do
                               begin
                                    if length(edits_on_form[i].text)=0
                                      then
                                          begin
                                               edits_on_form[i].setfocus;
                                               status:=false;
                                               continue
                                          end
                                      else status:=true;
                               end;

                            if status=true
                              then button_on_form.setfocus;

                       end;

использование модуля в форме:

begin
     if key=#13
       then setfocus_edits_button([edit1,edit2,edit3],button1);
end;

в итоге ошибки:
в модуле компилятор не понимает Tedit и tbutton

подскажите где ошибки, может можно как то более рационально прописать инструкции:
что должно получиться
1) инструкция должна быть прописана в модуле
2) она должна проверять пустые edit'ы и на них фокусироваться пока е заполнит оператор, в случае если они заполнены фокусируется на след объекте - кнопка например

спасибо))

[eoln]

uses StdCtrls;

[Pavel_Mitrofanov]

procedure Form4.FormCreate(Sender: TObject);
begin
     label1.Caption:='Исходные данные:'+#13+'Университет:'+#32+
     Unit1.Form1.RadioButton1.Caption+#13+'Фамилия:'+#32+
     Unit2.Form2.Edit1.Text+#13+'имя:'+#32+Unit2.Form2.Edit2.Text+
     #13+'отчество:'+#32+Unit2.Form2.Edit3.Text;
end;

Почему то Label не отобажает ни один Edit.Text
может быть причина в том что я ни в одной форме не определяю переменные, и не присваиваю им значения edit.text


Подскажите в чем нюанс?

[Delphi_ProGer]

может быть причина в том что я ни в одной форме не определяю переменные, и не присваиваю им значения edit.text

Да, именно в этом!
Или же Вы не вводити какой-нибудь текст в Edit'ы.