if (Edit1.Text='text 1') or (Edit2.Text='text 2') or (Edit3.Text='text 3') then
Edit6.Text=0 // неправильно