delphi as

//As用于将一个对象转换为另一个对象

procedure BtnClick(Sender:TObject);

begin

  (Sender as TButton).Caption := 'Clicked';

end;

//对于对象填充接口的转换, 必须用As进行

(HTTPRIO as IExp).GetConnection;

//As不能用于数据类型的转换, 下面的代码是错误的:

var

  i: Integer;

  s: string;

begin

  s := (i as string);

end;

//正确写法是:

s := string(i);