if length(edit9.text) > 0 then
begin
gut := false;
while (not eof(f2)) and (gut = false) do
begin
read(f2,person);
inc(index,1);
if (pos(uppercase(edit9.text),uppercase(person.anrede)) > 0) or
(pos(uppercase(edit9.text),uppercase(person.name)) > 0) or
(pos(uppercase(edit9.text),uppercase(person.vorname)) > 0) or
(pos(uppercase(edit9.text),uppercase(person.strasse)) > 0) or
(pos(uppercase(edit9.text),uppercase(person.plz)) > 0) or
(pos(uppercase(edit9.text),uppercase(person.ort)) > 0) or
(pos(uppercase(edit9.text),uppercase(person.tel)) > 0) or
(pos(uppercase(edit9.text),uppercase(person.zhv)) > 0) or
(pos(uppercase(edit9.text),uppercase(person.mem[1])) > 0) or
(pos(uppercase(edit9.text),uppercase(person.mem[2])) > 0) or
(pos(uppercase(edit9.text),uppercase(person.mem[3])) > 0) or
(pos(uppercase(edit9.text),uppercase(person.mem[4])) > 0) or
(pos(uppercase(edit9.text),uppercase(person.mem[5])) > 0) or
(pos(uppercase(edit9.text),uppercase(person.mem[6])) > 0) or
(pos(uppercase(edit9.text),uppercase(person.mem[7])) > 0) or
(pos(uppercase(edit9.text),uppercase(person.mem[8])) > 0) or
(pos(uppercase(edit9.text),uppercase(person.mem[9])) > 0) or
(pos(uppercase(edit9.text),uppercase(person.mem[10])) > 0) or
(pos(uppercase(edit9.text),uppercase(person.mem[11])) > 0) or
(pos(uppercase(edit9.text),uppercase(person.mem[12])) > 0) or
(pos(uppercase(edit9.text),uppercase(person.mem[13])) > 0) then
begin
image3.visible := true;
image1.visible := false;  //grn
stringgrid2.row := index;
label11.caption := inttostr(index);
edit1.text := inttostr(person.nummer);
edit2.text := person.anrede;
edit3.text := person.name;
edit4.text := person.vorname;
edit5.text := person.strasse;
edit6.text := person.plz;
edit7.text := person.ort;
edit8.text := person.zhv;
edit12.text := person.tel;
memo1.clear;
for zip := 1 to zei do
begin
memo1.lines.Add(Person.mem[zip]);
end;
combobox1.text := person.filter;
gut := true;
end  else
begin
image3.visible := false;
image1.visible := true;  //rot
end;
end;
end;