procedure TformMain.IWAppFormCreate(Sender: TObject);
var
  i   :  integer;
  fnm :  string;
begin
  //おすすめ商品（ファイルより表示）
  with  Query1 do
  begin
    i := 0;
    Active := True;
    First;
    if not eof then
    begin
      fnm := FieldByName('CODE').AsString + '.JPG';
      IWImgTp1.Picture.LoadFromFile('c://img/' + fnm);
      IWLblNm1.Caption := '<div align=center>'
	   + FieldByName('NAME').AsString + '</div>';
      IWLblPrc1.Caption:= '<div align=center>'
	   + FormatFloat('#,0円',FieldByName('SPRICE').AsCurrency) + '</div>';
      Next;
    end;
    if not eof then
    begin
      fnm := FieldByName('CODE').AsString + '.JPG';
      IWImgTp2.Picture.LoadFromFile('c://img/' + fnm);
      IWLblNm2.Caption := '<div align=center>'
	   + FieldByName('NAME').AsString + '</div'>';
      IWLblPrc2.Caption:= '<div align=center>'
	   + FormatFloat('#,0円',FieldByName('SPRICE').AsCurrency) + '</div>';
      Next;
    end;
    if not eof then
    begin
      fnm := FieldByName('CODE').AsString + '.JPG';
      IWImgTp3.Picture.LoadFromFile('c://img/' + fnm);
      IWLblNm3.Caption := '<div align=center>'
	   + FieldByName('NAME').AsString + '</div>';
      IWLblPrc3.Caption:= '<div align=center>'
	   + FormatFloat('#,0円',FieldByName('SPRICE').AsCurrency) + '</div>';
      Next;
    end;
    Active := False;
  end;
end;