procedure TForm1.StartuemClick(Sender: TObject);
var
k: longint;
H: HWND;

begin
StringGrid2.RowCount:=StringGrid2.RowCount+1;
k:=StringGrid2.RowCount-3;
   for k := 0 to StringGrid1.RowCount - 1 do
  if k<>0 then
 begin

ShellExecute(Handle,'open',pchar(StringGrid1.Cells [1,k]),nil,nil,SW_SHOWNORMAL);
 sleep(5000);

 H := FindWindow('IEFrame', nil);  
 SendMessage(H, WM_SYSCOMMAND, SC_CLOSE, 0);
 end;

end;