В чем ошибка в коде? SQL + Delphi

Необходимо: при нажатии на кнопку создавать резервную копию БД

Procedure TForm1.N2Click(Sender: TObject);

var dir:string;

begin
if SaveDialog1.Execute then begin
dir:=SaveDialog1.FileName;
ADOConnection1.Execute('BACKUP DATABASE World TO DISK ='+chr(39)+dir+chr(39));
end;

end;