ADO Database Delphi

-------------------SQL-------------------
Haftanın İlk Günü ;
select CONCAT(DAYOFMONTH(CURDATE())-DAYOFWEEK(CURDATE()-2),'.',
CASE LENGTH(MONTH(CURDATE()))
WHEN 1 THEN CONCAT('0',MONTH(CURDATE()))
WHEN 2 THEN MONTH(CURDATE()) END,
'.',YEAR(CURDATE()));
Haftanın Son Günü ;
select
CONCAT(DAYOFMONTH(CURDATE())+DAYOFWEEK(CURDATE()-2),'.',
CASE LENGTH(MONTH(CURDATE()))
WHEN 1 THEN CONCAT('0',MONTH(CURDATE()))
WHEN 2 THEN MONTH(CURDATE()) END,
'.',YEAR(CURDATE()))
----------------------------------
//NOTE :
//-2 : Haftanın İlk Günü Pazartesi
//-1 : Haftanın İlk Günü Pazar)
----------------------------------
Ayın İlk Günü ;
select CONCAT("01",
".",
CASE LENGTH(MONTH(CURDATE()))
WHEN 1 THEN CONCAT('0',MONTH(CURDATE()))
WHEN 2 THEN MONTH(CURDATE()) END,
".",YEAR(CURDATE()))
Ayın Son Günü ;
select
DATE_SUB(
DATE_ADD(
CONCAT(YEAR(CURDATE()),"-",
CASE LENGTH(MONTH(CURDATE()))
WHEN 1 THEN CONCAT("0",MONTH(CURDATE()))
WHEN 2 THEN MONTH(CURDATE()) END
,"-01"),INTERVAL 1 MONTH),INTERVAL 1 DAY)