ADO Database Delphi

procedure TForm1.Button3Click(Sender: TObject);
var
fmt: fmtdate;
s: string;
begin
Check(dbiGetDateFormat(fmt));
s:=fmt.szDateSeparator;
ShowMessage('BDE nin tarih ayracı' + s + ' karakteridir');
end;