This Works and is in help text
Recordset.open;
Recordset.Last;
Edit1.Text:= IntToStr(Dataset.RecordCount);
Recordset.First;