Delphi中判断一个字符的位置在字符串开头或者末尾

procedure TForm1.btn1Click(Sender: TObject);
var s: string;
begin
  s := 'abcdefghijkilkjasldnbG';
  if s[1]='a' then
    ShowMessage('a 在开始位置');
  if s[Length(s)]='G' then
    ShowMessage('G 在最后一位');
end;