How to retrieve the last character in a TMemo

Problem/Question/Abstract:

How to retrieve the last character in a TMemo

Answer:

var
  s: string;
  c: char;
begin
  with Memo1.Lines do
  begin
    {Get the last line}
    s := Strings[Count - 1];
    {Get the last character}
    c := s[Length(s)];
  end;
end;