realizar copia de seguridad de bd interbase desde delphi

[ingabraham]

el cod backup es este


with IBBackupService1 do begin
Active := True;
try
DatabaseName := edtOrigen.Text;
BackupFile.Add(edtDestino.Text);
ServiceStart;
while not EOF do Memo1.Lines.Add(GetNextLine);
finally
Active := False;
end;
end;


ok. q me dices?
pero necesito el del restaurrar,
y no se sobre el copy
si tienes un cod te lo agradezco