حل مشكلة cannot find fbclient.dll فى فيربيرد

عند استخدام قاعدة بيانات فيربيرد كقاعدة بيانات مضمنة واجهتنى مشكلة ظهور رسالة
cannot find fbclient.dll
وكان الحل هو استخدام الكود التالى

procedure TfrMain.FormCreate(Sender: TObject);
begin
//solve cannot find fbclient.dll
SQLConnection1.VendorLib :=ExtractFilePath(Application.ExeName) +'fbclient.dll';
SQLConnection1.Connected:=True; //connect
ClientDataSet1.Active :=true;    // open clientdataset
end;