mORMot Open Source

var
   db: TSQLDBConnectionProperties;
   rows: ISQLDBRows;
begin
db := TSQLDBSQLite3ConnectionProperties.Create( 'Base.sql', '', '', '');

  rows := db.ExecuteInlined('SELECT * FROM info', true);

 if rows<>nil then

    begin

      while rows.Step do

        begin

         Writeln( rows.ColumnString('url') );

        end;
    end;

 TFile.Delete( 'Base.sql' ); // error
end;

db.Free;