var
  S: string[225];
  I: Integer;
begin
  S := 'abc';
  I := Ord(S[0]); //我知道他是干什么用的,但不明白他的原理
  Caption := IntToStr(I); //这里的I等于3
end;