delphi 加载inc文件

delphi 加载inc文件

procedure TForm1.FormCreate(Sender: TObject);
const
{$I str.inc}
begin
 ShowMessage(MSG);
end;

str.inc 放在源码同目录
MSG = 'abc';