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;