Descobrir o Tamanho do Banco de Dados

No sql que eu saiba não existe e nem tem sentido. Podes fazer no delphi

A função abaixo.

function fileSize(const FileName: String): LongInt;
{Retorna o tamanho de um arquivo}
var
SearchRec : TSearchRec;
begin { !Win32! -> GetFileSize }
if FindFirst(FileName,faAnyFile,SearchRec)=0
then Result:=SearchRec.Size
else Result:=0;
FindClose(SearchRec);
end;