Function Write allows you to print some information to a LogWindow in the bottom part of the program. It does not insert symbols of carrier return and line feed.
var
dbf :integer;
begin
dbf := OpenBase( 'filename.dbf' );
if dbf <> 0 then
begin
Write( inttostr( RecCount(dbf) ) );
Write( #13#10 );
Write( inttostr( FieldCount(dbf) ) );
CloseBase(dbf);
end;
end.