//取得字符串中指定的字符 

procedure TForm1.Button1Click(Sender: TObject);

var

  mystr:string;

begin

  mystr:='Delphi7';

  showmessage(mystr[3]);

end;