procedure TForm2.AdvStringGrid1GetCellPrintColor(Sender: TObject; ARow,
  ACol: Integer; AState: TGridDrawState; ABrush: TBrush; AFont: TFont); begin
  if arow = 7 then
    afont.Style := [fsBold]
  else
    afont.Style := [];
end;

 AdvSmoothListBox1.Items.Select([3, 4, 5, 6]);

#pragma link "gdiplus.lib"

begin  
  Webcopy1.Items.Clear;  
  with Webcopy1.Items.Add do  
  begin  
    FTPHost := 'www.myserver.com';  
    FTPUserID := 'myuserid';  
    FTPPassword := 'mypassword';  
    Protocol := wpFtpDelete;  
    TargetDir := 'folderwherefileislocated';
    url := 'myfile.zip';  
  end;  
  Webcopy1.Execute;  
end;  

var 
  item: THTMLItem; 
begin
  item := THTMLItem(AdvVerticalPolyList1.AddItem(THTMLItem)); 
end; 

{ 
  THTMLItem *item; 
   item = (THTMLItem*)AdvVerticalPolyList1->AddItem(__classid(THTMLItem)); 
} 

  
AdvChartView1.BeginUpdate;
AdvChartView1.Panes[0].Series.Mode := cmInit;
AdvChartView1.EndUpdate;

ShortDayNames[1] := 'S';
ShortDayNames[2] := 'M';
ShortDayNames[3] := 'T';
ShortDayNames[4] := 'W';
ShortDayNames[5] := 'T';
ShortDayNames[6] := 'F';
ShortDayNames[7] := 'S';