[v1s2222]

Напиши Memo1.Lines.LoadFromFile('C:\1.txt'); и потом
мой код и все будет работать. Если что-то работает не так, то просто разберись что и по чему.... вот и все... сам то алгоритм правильный.