각 현장을 구분하는 코드필드값과 현장이름을 가지고 버튼을 생성하였습니다.
각각 현장을 나타내는 버튼을 클릭할 때 동시에 또 다른 폼이 생성되고 코드값을 같이 넘겨주고 싶습니다. 도와주세요...

procedure TGmain_form.hyun_btnClick(Sender: TObject);
var tag : longint;
begin
     CP_GUBUN := 1;
     tag :=TSpeedButton(Sender).tag;
     Application.CreateForm(TGSUB_FORM, GSUB_FORM);
     qy2.Close;
     qy2.sql.Clear;
     qy2.sql.Add('SELECT * FROM HYUNJANG WHERE CODE :=CODE');
     qy2.ParamByName('CODE').asstring := code_list.items.strings[tag -100];
     qy2.open;
     GSUB_FORM.HGCODE_LABEL.caption :=qy2.fieldbyname('CODE').asstring;
     GSUB_FORM.HGNAME_LABEL.caption :=qy2.fieldbyname('NAME').asstring;
     GSUB_FORM.windowstate :=wsmaximized;
      
end;