كيف تفرقة الايمايلات حسب نوعها من مكون memo

[S.FATEH]

السلام عليكم
جرب هذا الحل

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
var
  I, Index: Integer;
  TmpStr: String;
begin
  Index  := -1;
  TmpStr := '';
  for I := 0 to memoGeneral.Lines.Count -1 do
    begin
      TmpStr := UpperCase(memoGeneral.Lines[i]);
      TmpStr := Copy(TmpStr, LastDelimiter('@', TmpStr) + 1, LastDelimiter('.', TmpStr) - LastDelimiter('@', TmpStr) -1);
      if TmpStr = '*******' then
       memo*******.Lines.Add(memoGeneral.Lines[i]);
      if TmpStr = '*****' then
        memo*****.Lines.Add(memoGeneral.Lines[i]);
      if TmpStr = '*****' then
        memo*****.Lines.Add(memoGeneral.Lines[i]);
    end;
end;