OnClickイベントで次のように記述します。
procedure TformMain.IWLink1Click(Sender: TObject); begin UserSession.SRC_WORD := ''; UserSession.SRC_BUNRUI := 1; //検索結果画面呼び出し TformDtl.Create(WebApplication).Show; end;