Получить последнюю строку из текста

begin
  if Memo1.Lines.Count = 0 then
    ShowMessage('Мемо пуст.')
  else
    ShowMessage('Последняя строка: '#13#10 + Memo1.Lines[Memo1.Lines.Count - 1]);
end;

var
  S : String;
  Sl : TStringList;
begin
  S := '...'; //Исходный текст.
  if S = '' then
    ShowMessage('Текст пуст.')
  else begin
    Sl := TStringList.Create;
    Sl.Text := S;
    ShowMessage('Последняя строка: '#13#10 + Sl[Sl.Count - 1]);
    FreeAndNil(Sl);
  end;
end;

var
  S, SRes : String;
  i, Len : Integer;
begin
  S := '...'; //Исходный текст.
  if S = '' then
    ShowMessage('Текст пуст.')
  else begin
    Len := Length(S);
    SRes := S;
    for Len downto 1 do
      if S[i] = #10 then begin
        SRes := Copy(S, i + 1, Len - i);
        Break;
      end;
    ShowMessage('Последняя строка: '#13#10 + SRes);
  end;
end;