определение последней строки в memo

[dependence]

На форме два memo
В memo1 текст подгружается из файла 123.txt

memo1.Lines.Clear; 
memo1.Lines.LoadFromFile ('123.txt');

Нужно определить последнюю строку в memo1 и скопировать ее в memo2 и сохранить в файл 321.txt

[Stilet]

with Memo1 do Куда копировать последнюю строку:=Lines[lines.count-1];

[chertovich]

var
  Index: Integer;
begin
  Index := Memo1.Lines.Count - 1;
  if Index < 0 then
    raise Exception.Create('Memo пуст')
  else
  begin
    Memo2.Text := Memo1.Lines[Index];
    Memo2.Lines.SaveToFile('Имя файла.txt');
  end;