[Ildar-tsr]

Код:

procedure button1Click(Sebder: TObject);
var
  q: TADOQuery;
begin
  q:= TADOQuery.Create(nil);
  q.Connection:= ADOConnection1;
  q.SQL.Text:= 'BACKUP DATABASE [Serg] TO  DISK = N''C:\Serg.bak'' 
  WITH NOFORMAT, NOINIT,  NAME = N''Serg'', SKIP, NOREWIND, NOUNLOAD,  STATS = 10';
  q.ExecSQL;
  q.Free;
end;