Sağolun t-hex hocam. Sizin yöntem de sorunsuz çalışıyor.
Bir çözüm ararken iki tane buldum

Kod: Tümünü seç
var
cumle:String;
d:Integer;
say:Integer;
begin
say:=0;
for d:=1 to Length(cumle) do
begin
if a[d]=' ' then
say:=say+1;
end;
Kod: Tümünü seç
var
hata:boolean;
begin
hata:=false;
try
DataModule2.IBDataSet1TARIHISLEM.Asstring:=maskedit3.text
except
hata:=True;
end;
if hata=False then
DataModule2.IBDataSet1.post;