procedure TForm1.DelAllClick(Sender: TObject); begin Form1.tbStd.Last; while not tbStd.Bof do begin Form1.tbStd.Delete; Form1.tbStd.Prior; end; end;