procedure TForm1.Button3Click(Sender: TObject);
var st: integer;
begin
  st:= StrSpusok.Row;
  StrSpusok.DeleteRow(st);         //Видалення запису
end;