//お知らせ（ファイルより表示）
with  Table1 do
begin
  i := 0;
  Open;
  First;
  while not eof do
  begin
    IWGInfo.RowCount := i + 1;
    IWGInfo.Cell[i,0].Text := FieldByName('HIZUKE').AsString;
    IWGInfo.Cell[i,1].Text := FieldByName('CONTENTS').AsString;
    IWGInfo.Cell[i,1].Width := '360';
    IWGInfo.Cell[i,0].VAlign:= vaTop;
    IWGInfo.Cell[i,1].VAlign:= vaTop;
    IWGInfo.Cell[i,0].Font.Style:= [fsBold];
    Next;
    i := i + 1;
  end;
  Close;
end;