{$R A.res}

procedure TForm1.FormCreate(Sender: TObject);
var
  ResW:THandle;
  rs:TResourceStream;
begin
  ResW:=FindResource(hInstance,'AU',RT_RCDATA);
  if ResW=0 then RaiseLastOSError;
  rs:=TResourceStream.Create(hInstance,'AU',RT_RCDATA);
  Field.Clear;
  Field.LoadRTFFromStream(rs);
end;