Extract metadata por código

[paty_rlopez]

hola estube haciendo lo del ejemplo pero cuando llega a esta linea:

Memo1.Lines.Add(GetNextLine);

me marca un error

cannot open file coco270720072.gbk

este es exactamente mi codigo

¿alguien me pueder decir que tengo mal?

procedure TForm1.Button1Click(Sender: TObject);
begin
with IBBackupService1 do
  begin
    ServerName := '127.0.0.1'; 
    LoginPrompt := False; 
    Params.Add('user_name=sysdba');
    Params.Add('password=masterkey'); 
    Active := True; 
    try 
      Verbose := True; 
      Options := [NonTransportable, IgnoreLimbo]; 
      DatabaseName := 'c:\coco\cocodelphi.fdb';
      SQL1.Close;
      SQL1.SQL.TExt := 'Select * from Corte__Ultimo';
      SQL1.ExecQuery;
      BackupFile.Add('COCO'+ SQL1.FieldByName('FECHA_RESUMEN').AsString + SQL1.FieldByName('Turno').AsString+'.gbk');
      ServiceStart; 
      While not Eof do 
        Memo1.Lines.Add(GetNextLine); 
    finally 
      Active := False; 
    end; 
  end; 
end;

Gracias por su atencion
Saludos Cordiales