O que a de errado nesta linha [RESOLVIDO]

celso22
(usa Debian)

Enviado em 10/01/2009 - 11:44h

while not inf do
desde já agradeço...
procedure Tfrmbackuprestore.Button1Click(Sender: TObject);
begin
try
with IBBackupService1 do
begin
ServerName := 'Local Server';
LoginPrompt := False;
Params.Add('user_name=SYSDBA');
Params.Add('passsword=sd20031984]=-');
Active := True;
Verbose := True;
DatabaseName := Edit1.Text;
BackupFile.Add(DirectoryListBox1.Directory+Edit2.Text);
Options := [];

if CB_IgnoreChecksums.Checked then
Options := Options + [IgnoreChecksums];
if CB_IgnoreLimbo.Checked then
Options := Options + [IgnoreLimbo];
if CB_NoGarbageCollection.Checked then
Options := Options + [NoGarbageCollection];
if CB_NonTransportable.Checked then
Options := Options + [NonTransportable];

ServiceStart;

end;

finally
while not inf do
memo1.Lines.Add(GetNextLine);
ShowMessage('Backup efetuado com sucesso');
end;
end;