Как удалять повторяющуюся строку, содержащую "Она:", и пропускать строку, содержащую "Вы:"?
Имею код, который удаляет вторую повторяющуюся строку: var i, j: Integer; begin With Memo1.Lines do begin for i := 0 to Count - 1 do for j := Count - 1 downto i+1 do if Strings[i]…