[Alegun]

Вообще-то всё так и выполняется, в эдитах задаются критерии, но раз не подходит, то в цикл нужно добавить код выборки\сравнения из Мемо3:

Код:

var 
g: integer;
str: string;
...

    str:=Memo1.Lines[i];
    Delete(str, 5,Length(str));// Оставляем только 5 символов в строке 
    for g := 0 to Memo3.Lines.Count - 1 do
     if str = Memo3.Lines[g] then flg:= true;
...